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MORE COLOR. MORE SOUND. 
MORE GRAPHICS CAPABILITIES. 




ATARI 400 



ATARI 800 



Compare the built-in features of 
leading microcomputers with the Atari 
personal computers And go ahead, 
compare apples and oranges. Their 
most expensive against our least 
expensive: the ATARI* 400* 

Start with graphics capabilities. The 
ATARI 400 offers 1 28 color variations. 
16 colors in 8 luminance levels. Plus 
29 keystroke graphics symbols and 8 
graphics modes. All controlled from a 
full 57 key ASCII keyboard. With upper 
and lower case And the system is FCC 
approved with a built-in RF modulator 
That's just for openers 

Now, compare sound capabilities 
Four separate sound channels and a 



roll • iMi«iir»iTi 



built-in speaker With the 

digital recorder, you can add Atari's 
unique Talk & Teach* Educational System 
cassettes. 

Here's the clincher: Solid state (ROM) 
software. For home management, busi- 
ness and entertainment. Or just plug 
in an Atari 10K BASIC or Assembler 
language cartridge and the full power 
of the computer is in your hands. 

Memory? 8K expandable to 16K. 
And that's just for the ATARI 400 at a 
suggested retail of only $549.99 

The ATARI" 800~ gives you all 
that and much more. 

User-installable memory to fcT 
48K A full-stroke keyboard. w\t, 



j/ With a high-speed serial I/O port 
s that allows you to add a whole family 

ystem of smart peripherals. Including up to 

four individually accessible disk drives. 
ROM) And a high speed dot-matrix impact 
busi- printer. And, the Atari Program Recorder 
ug is i ncluded with the 800 system . 

;r Suggested retail price for the 

iwer ATARI 800 (including recorder) is 
$99999 

Make your own comparison wher- 
ever personal computers are sold 
Or, send for a free chart that 
compares the built-in features 
of the ATARI 400 and 800 
ATA O I to other leading personal 
#%l#%l\l computers 



: Alan 1979 
iA Warner Con 



lumcations Company 



PERSONAL COMPUTER SYSTEMS 

1 265 Borregas A/e Dept C, Sunnyvale, California 94086 Call toll-free 800-538-8547 
(in Calif 800-672-1404) for the name of your nearest Atari retailer 
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GPeative 
computing 

BRINGS YOU 

SENSATIONAL 

SAVINGS 

$ s s $ s 

Creative Computing has a very 
simple objective: to help people find 
the most worthwhile and effective 
ways of using their home, school, 
and small business computers. 
Creative Computing consists of five 
divisions working to bring you the 
most value for your computing 
dollars . . . 

• Creative Computing Magazine 
is the #1 magazine of software and 
applications. Every issue is packed 
with pragramatic applications, in 
depth evaluations, fiction, and 
foolishness. Our ad on pageisi tells 
you how you can SAVE up to 43% 
over newsstand price by becoming 
a subscriber. 

• Creative Computing Press and 
Creative Computing Book Service 
publish and market popular and 
hard-to-find books, art prints, 
posters, games, and T-shirts for the 
computer enthusiast. On page 191 
you'll find your 754; DISCOUNT 
COUPON. 

• Creative Computing Software 
produces and markets outstanding 
applications software for a wide 
variety of personal computers. Cir- 
cle reader service #207 for a FREE 
Sensational Software Catalog and 
take advantage of the $1.00 DIS- 
COUNT CERTIFICATE on page119 
for more SENSATIONAL SAVINGS. 

• Creative Computing Consulting 
offers systems design, marketing, 
custom software development, and 
general consulting assistance to 
both manufacturers and users. Our 
continuing involvement in state-of- 
the-art projects ensures you of in- 
valuable assistance for your 
organization. Contact Creative 
Computing Consulting for a pro- 
spectus. 

Creative Computing 

P.O. Box 789- M 
Morristown, N.J. 07960 




Data Communications networks for per- 
sonal computers: 

The Source vs Micronet. 



Indepth review of Texas Instruments 99/4. 

Software Reviews : 

•Tiny C 

• Microsoft Basic 5.0 

•Z80 Algol 

•CP/M2.0andMP/M 

•Temple of Apshai 

Inside the TRS-80 

Photographing Your Computer System 

Basic Computer Games 

Edited by David Ahl, this book con- 
tains 101 Imaginative and challenging 
games for one, two, or more players — 
Basketball, Craps, Gomoko, Blackjack, 
Even Wins, Super Star Trek, Bombs 
Away, Horserace. Simulate lunar land- 
ings. Play the stock market. Write poetry. 
Draw pictures. 

All programs are complete with listing 
in Microsoft Basic, sample run and 
description. Basic conversion table in- 
cluded. 125,000 copies in print. 192 pages 
softbound.[6C]$7.50. 




More Basic 
Computer Games 

Contains 84 fascinating and enter- 
taining games for solo and group play — 
evade a man-eating rabbit, crack a safe, 
tame a wild horse, become a millionaire, 
race your Ferrari, joust with a knight, trek 
across the desert on your camel, navigate 
in deep space. 

All games come complete with pro- 
gram listing in Microsoft Basic, sample 
run and description. 192 pages soft- 
bound. [6C2] $7.50. 

Order using handy card in back. 



Z-2H 



C Cromemco 



iOw-cost hard disk computers 

are here 

11 megabytes of hard disk and 64 kilobytes of fast RAM in a 

Z80A computer for under $10K. Two floppy drives, too. 

Naturally, it's from Cromemco. 



It's a reality. In Cromemco's new 
Model Z-2H you get all of the above 
and even more. With Cromemco you 
get it all. 

In this new Model Z-2H you get 
not only a large-storage Winchester 
hard disk drive but also two floppy 
disk drives. In the hard disk drive you 
get unprecedented storage capacity 
at this price — 11 megabytes unfor- 
matted. 

You get speed — both in the 4 MHz 
Z80A microprocessor and in the fast 
64K RAM which has a chip access 
time of only 150 nanoseconds. You 
get speed in the computer minimum 
instruction execution time of 1 micro- 
second. You get speed in the hard 
disk transfer rate of 5.6 megabits/sec. 

EXPANDABILITY 

You get expandability, too. The 
high-speed RAM can be expanded to 
512 kilobytes if you wish. 

And the computer has a full 1 2-slot 
card cage you can use for additional 
RAM and interface cards. 

BROADEST SOFTWARE SUPPORT 

With the Z-2H you also get the 
broadest software support in the 



microcomputer field. Software Cro- 
memco is known for. Software like 
this: 

• Extended BASIC 

• FORTRAN IV 

• RATFOR (RATional FORtran) 

• COBOL 

• Z80 Macro Assembler 

• Word Processing System 

• Data Base Management 

with more coming all the time. 

SMALL, RUGGED, RELIABLE 

With all its features the new Z-2H, 
including its hard disk drive, is still 
housed in just one small cabinet. 




Included in that cabinet, too, is 
Cromemco ruggedness and reliability. 
Cromemco is time-proved. Our 
equipment is a survey winner for 
reliability. Of course, there's Cro- 
memco's all-metal cabinet. Rugged, 
solid. And, there's the heavy-duty 
power supply (30A @ 8V, 15A @ 
+ 18 V, and 15A @ -18V) for cir- 
cuitry you'll sooner or later want to 
plug into those free card slots. 

CALL NOW 

With its high performance and low 
price you KNOW this new Z-2H is 
going to be a smash. Look into it 
right now. Contact your Cromemco 
computer store and get our sales 
literature. Find out when you can 
see it. Many dealers will be showing 
the Z-2H soon — and you'll want to 
be there when they do. 



Hard disK drive al lower left can be inter- 
changed iust by sliding out and disconnecting 
plug. Seven tree card slots are available. 
Z-2H includes printer interlace card. 



PRESENT CROMEMCO USERS 

We've kept you in mind, too. Ask 
about the new Model HDD Disk 
Drive which can combine with your 
present Cromemco computer to give 
you up to 22 megabytes of disk 
storage. 



Q 



Cromemco 

incorporated 

280 BERNARDO AVE., MOUNTAIN VIEW. CA 94040 • (415)964-7400 

Tomorrow's computers now 
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Here's to your health! Six Vitaf acts 
programs for you and your family. 



Being healthy and happy is so very important. And now you 
can use your Apple, - PET/CBM' - or TRS-80" computer to 
help stay that way 

Introducing six new Personal Software '" Vitafacts Series 
programs for your health: Growing Up, Heart Attacks, Talking 
About Sex, Drinking & Drugs, Birth Control, and Your Blood 
Pressure. 

Using a Vitafacts program is like getting advice from your 
family doctor. Accurate, up-to-date medical information about 
physical and mental health, presented in a friendly, straight- 
forward way. You'll feel even more confident knowing that 
each program is approved and endorsed by The College of 
Family Physicians in Canada, where the Vitafacts Series is 
created by The Richmond Software Group and Medifacts Ltd. 

Each program includes a manual with diagrams and glossary, 
a computer cassette, and an audio 
cassette. The audio tape uses short 
dramas and straight talk to tell the 
story. Then the computer exercises 
verify your new knowledge. And 
because you use your knowledge 
right away, you remember more. It's 
fun! And a great way to learn. 

Growing Up helps families cope 
with the teenage years. Teenagers 
learn more about their physical and 
emotional changes, and parents learn 
more about helping their children 
through it all. 

Heart Attacks describes what one 
is, how to recognize it, what to do 



TM-Viufacts is a trademark ot Med tracts Ltd . 
Apple is a trademark of AppleComputer, Iru ITT 
is a trademark of Commodore Business Machines 
Inc ;TRS- 80 isatrademark of the Radio Shack Div 
of Tandy Corp 




when someone is experiencing one, and— most important- 
how to help prevent one. 

Talking About Sex, presented by two of Canada's fore- 
most sex counselors, offers to adults the proper information 
and appropriate attitude for a satisfying sex life. 

Drinking & Drugs. No lecturing or talking down. Just 
straight facts about the very real dangers of alcohol and 
drugs. Prepared for teenagers, but good for adults. 

Birth Control explains clearly and completely conception, 
birth and prevention of unwanted pregnancies. Important 
information for teenagers, and helpful for adults. 

Your Blood Pressure. No one is immune to the risks of 
high blood pressure. Knowledge is your best defense, and 
this program has the information. 

"Vita" means "Life" in Latin. We hope these programs 
make your life healthier and happier 
Retail price is just $19.95. 
Ask your Personal Software 
dealer for a demonstration, and for 
our new catalog. Call or write to find 
your nearest dealer. (408) 745-7841 
Personal Software, Inc., 592 Weddell 
Dt, Sunnyvale, CA 94086. 
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78 Stock Market Analysis Humbaugh 

On your home computer 
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Gazing into the crystal ball to fortell the 
future Is nothing new. Here is an artist's 
conception of what a crystal ball of the 
future may look like. Today, however, It 
seems that the personal computer may 
be the best tool available for forcasting, 
particularly with respect to financial 
investments and the stock market. The 
six articles starting on page 44 discuss 
several useful approaches. 

The cover painting Is copyright © by Paul 
Stinson. 
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Foreign Customers 

Foreign subscribers in countries listed be- 
low may elect to subscribe with our local 
agents using local currency. Of course, sub- 
scriptions may also be entered directly to 
Creative Computing (USA) In U.S. dollars. 
(bank draft or American Express card). All 
foreign subscriptions must be prepaid. 

Many foreign agents stock Creative Com- 
puting magazines, books, and software. How- 
ever, please Inquire directly to the agent be- 
fore placing an order. Again, all Creative 
Computing products may be ordered direct 
from the USA — be sure to allow for foreign 
shipping and handling. 
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If you're not content with just playing games, TBS is producing 
applications software for your TRS-80 Level II that makes it a 
practical tool. 

CHECKBOOK II by Alan Meyers is the finest program of its 
kind yet published. With superb graphic screen displays, it 
does everything necessary to keep your checkbook balanced. 
Data is input directly into a five-column screen display with a 
field for alpha or numeric codes. Editing is done easily in any or 
all columns. CHECKBOOK II will accurately balance and 
reconcile your checkbook, handling balances up to $1 .000,000. 
Your balance brought forward is always in memory. Out- 
standing checks are listed and easily saved. You can also search 
for an entry by any field except amount, and all checks with 
matching entries will be displayed and totaled. A numeric sort 
routine is included . Screen prints can be made to a line printer 
from almost any point in the program. In addition, the 32-48K 
version can write files to disk . This and the 1 6K version are 
included on the same tape. For $18 50. CHECKBOOK II is the 
top of the line in personal checkbook programs. 

INFORMATION SYSTEM by Dale Kubler is simply the best in- 
memory, data base manager on the market. It allows you to 
create files with up to ten categories per page' . up to 40 
characters per category and 200 characters total per page 
Data from the keyboard is entered directly on a screen display 
ol one entire page. Once entered, you can sort or search your 
entire data base by any category and have the information 
desired displayed on the screen. INFORMATION SYSTEM pro- 
vides a thorough editing mode allowing changes by line without 
rewriting an entire file Program your own printouts to almost 
any form you desire for line or serial printers. Screen prints from 
anywhere in the program are also available. INFORMATION 
SYSTEM creates either disk or cassette files depending on the 
version you use. Four versions are supplied with the program 
tape. From mail lists to recipes, for only $24.50. this program 



is the ideal information manager. 

EXERCISER is for everyone This program allows you to set 
your own physical fitness goals, then chart and analyze your pro- 
gress toward these goals. Further, you may program an exercise 
regimen, then have the computer 'coach' you through your 
exercise routines. This system will allow you to usejour com- 
puter to reinforce your effort to attain physical health EXERCISER 
is really two programs in one. One measures your progress in 
jogging, swimming and bicycling and the other is for setting 
calisthenic regimens. It has long been known that to effectively 
structure an exercise program, it is necessary to think in terms 
of goals which can be met over a period of time. Whether you 
are training for the Boston Marathon or just wish for a minimum 
level of fitness, EXERCISER is designed to help you attain your 
goals. The price for this exceptional program is just $1 2.50. 

TBS has other great software for your TRS-80. BASIC 
TOOLKIT, SYSTEM DOCTOR & TERMINAL CONTROL are systems 
utilities BUSINESS MAIL LIST, DATA BASE MANAGER, CHECK 
REGISTER ACCOUNTING SYSTEM & ANALYSIS PAD are strong 
applications for business. Don't forget the LIBRARY 100; 100 
programs for only $49.50. TBS also has DISK HEAD CLEANERS 
tor TRS-80 and APPLE and GRAN MASTER DISKETTES, the 
best on the market. 

TBS is YOUR COMPANY, and to you we pledge to produce 
quality software at a price you can afford. The aciove products 
are available NOW at Computer Stores and Associate Radio Shack 
Stores nationwide or directly through us. For more information 
please contact us at the numbers below. 
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(404) 9394031 • P.O. BOX 49104 C • ATLANTA. OA 30359 
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Effective Writing 



David H. Ahl 



Acronyms 
and 
Capitalization 



When I first got started in this 
crazy computer industry, about the 
only name where more than the first 
letter was capitalized was IBM and 
Everyone knew that the reason for that 
was that it stood for International 
Business Machines. That was in 1953 
(now you know how old I am). Then in 
the 60's, companies went crazy trying 
to shorten their monikers from well- 
known, respectable names to "catchy" 
two- or three-letter acronyms. Colum- 
bia Broadcasting System abbreviated 
to CBS is one thing but LTV represents 
a horrible death for Chance Vought 
Aviation and Tempco just because 
they were bought by Jimmy Ling (Ling 
Tempco Vought). Today, one just has 
to look down the stock column listings 
of the Times or Wall Street Journal to 
see hundreds of examples of the death 
of perfectly good names to the anony- 
mous realm of acronyms — TRW, AMF, 
CNA, CTS, NLT, MCA, MEI, GAF, 
FMC, etc. 

Companies like to use acronyms 
because then the name of their new 
widget is (sometimes) mentioned in 
capital letters in news stories and press 
releases. We get hundreds of press 
releases every week, many of which list 
new products in all caps because they 
are an acronym for something or other. 
Companies go to great extremes to 
make sure that these are capitalized in 
the press, Logix Industries for ex- 
ample, putting a period behind every 
letter of their educational computer kit, 
T.E.A.M.M.A.T.E. 

What about non-proprietary ac- 
ronyms? Computer languages are 
frequently capitalized. But why? 
BASIC stands for beginners all- 
purpose symbolic instruction code. 
Why not call it basic in print instead of 
BASIC? If the acronym represents an 



abbreviation of the name of an organi- 
zation or whatever that would normally 
be capitalized, I can see some justifi- 
cation for capitalizing the acronym, 
say ANSI for American National 
Standards Institute, but otherwise, I'm 
opposed. Yielding to convention, 
perhaps the first letter should be 
capitalized to indicate that the word is 
an acronym, but otherwise I can see 
little justification for capitalizing the 
entire word. Capitalizing letters within 
an acronym representing the first letter 
of words from which they are derived 
would lead to ForTran or CoBOL 
(Common Business Oriented Lan- 
guage). Today, in print, both generally 
appear with the first letter capitalized, 
i.e., Fortran and Cobol. On the other 
hand, many publications and manu- 
facturers seem insistent on printing the 
language BASIC in all caps; this seems 
unjustified to me. Pascal, because it is 
not an acronym, seems not to have suf- 
fered from this misuse, although, 
unbelievable, several magazines insist 
on printing it in all caps, i.e., PASCAL. 
In any event, Creative* (arbitrary) 
policy is to capitalize acronyms that 
really stand for the names of organiza- 
tions whose names are capitalized, but 
to only capitalize the first letter of an 
acronym which stands for a series of 
words which are not normally capitali- 
zed. In other words, computer lan- 
guages are printed Basic, Pascal, 
Cobol, Fortran, Algol and Lisp. But we 
will write about ANSI standards, ASCII 
code, and UCSD Pascal. 

An interesting story in the world of 
acronyms concerns Digital Equipment 
Corporation's family of PDP com- 
puters. PDP stands for Programmed 
Data Processor and was originated 
because the financial backers of DEC, 
namely ARDC (American Research 




and Development Corp.) did not 
believe that DEC could compete with 
IBM in making computers. Conse- 
quently, DEC'S management told 
ARDC that they would not make 
computers, but rather they would 
make thingies called programmed data 
processors out of DEC'S flip chips and 
that they were not really computers. 
Ha! The financial backers were fooled 
but not the customers who beat a path 
to DEC'S doors to buy PDP's. Now, of 
course, DEC is the leading vendor of 
minicomputers in the world and the 
term PDP is well known (PDP-8, 
PDP-11, etc.). So, by accident, DEC 
created an acronym that stands out 
from the hodge podge of numeric 
designations for computers used by 
most other manufacturers. PDP is 
capitalized, by the way, because it is a 
trademark. 

Consider some other words that 
are often abbreviated as acronyms 
(BPI or bpi for bits per inch, CPU or 
cpu for central processing unit, and 
EDP or edp for electronic data proces- 
sing). Should these be capitalized? I 
think not, not even the first letter, 
because the term is generic and 
because it is in widespread use. 
Obviously, this makes the "rule" above 
somewhat difficult to state, much less 
enforce. In general, I feel that usage 
should dictate how acronyms are 
written in print. My disposition is 
toward the most general usage of a 
word — not that I am opposed to 
manufacturers claiming a legitimate 
trademark like PDP. In Creative, we will 
capitalize an entire word or acronym 
only if it is an actual trademark or an 
abbreviation for normally capitalized 
words. n 
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Welcome 

Creative Computing Magazine 
welcomes its new editor 

Tad Nelson 
whose influence should 

begin to appear 
sometime in the spring. 

Effective immediately, authors should 
send manuscripts to Creative Computing, 
Attn: Editor, P.O. Box 789-M, Morris- 
town, NJ 07960 and not to John Craig in 
California. Please include a SASE. 



Personal Computing 
Society, Inc. 

A new national personal computing 
society has been formed. The rather 
ambitious list of goals include facil- 
itating the interchange of information 
among educators, establishing interface 
standards for all off-the-shelf hardware, 
encouraging a comparison study of all 
computer manufacturers, distributors 
and service organizations. Also planned 
are projects to serve the handicapped ; to 
look into forseeable federal and local 
regulations; to distribute information 
software and equipment service facil- 
ities, clubs, and shows; and to establish 
a newsletter. 



Membership dues are $10 for indivi- 
duals or $25 for organizations. Contact 
Abby Gelles, Box I47, Village Station, 
New York, NY 10014. 

Big Apple Club 

The New York "Big Apple Club" is the 
fastest growing group of Apple II owners 
in the country. Our purpose is to provide 
the opportunity for Apple II owners to 
meet and share their experiences. 

Club members come from all age 
groups and from a variety of computer 
and non-computer disciplines. This mix 
of specialties and interests benefits all 
members. 

Meetings take place on a regular 
monthly basis in New York City. Al- 
though much of the club's focus is on 
software and applications, a new "Super 
Joystick" hardware project has just 
begun. For more information, contact 
Anthony Cerreta, President, 55- A Locust 
Ave, New Rochelle, NY 10801. (914) 
636-3417. 

Computer Group For 
Foreign Language Field 

The Association for Microcomputer 
Programming in Languages (AMPL) has 
been formed as an affiliate of the 




If you don't want 

2500 checks, 
)rder from ARIES 



Continuous form personal and business checks 
are available in small quantities. ARIES offers 
imprinted checks in quantities of 200 and up, 
priced from $39. 

Personal checks in personal quanities. VISA and 
MasterCharge accepted. 

For samples and order form, write: 

ARIES COMPUTER PRODUCTS 

P.O. Box 7932 

Eugene, OR 97401 

DEALER INQUIRIES INVITED 
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American Council on the Teaching of 
Foreign Languages. Among its many 
objectives are to promote awareness and 
use of microcomputers in every area of 
research and instruction including lis- 
tening comprehension, speaking, read- 
ing, writing, cultural history, media and 
translation. They intend to share 
routines, programs and knowledge about 
hardware and software through a news- 
letter to be called AMPL I/O. For further 
information including a copy of the first 
newsletter, send a stamped 9 X 12" 
self-addressed envelope to Wendell Hall, 
Dept. of Spanish and Portuguese, 
Brigham Young University, Provo, UT 
84602. 

To ATC Customers 

A number of users of our Air Traffic 
Controller package (CS-3006) have point- 
ed out a typographical error in the 
documentation which we would like to 
pass on to all owners of CS-3006. In the 
section entitled "Approach Headings" 
(directly beneath the aircraft instruction 
chart), is a sentence which reads, "The 
approach heading for # airport is due 
west, toward Fix 9. . ." This is obviously 
incorrect. This sentence should read, 
"The approach heading for # airport is 
due west, toward Fix ... " 

We regret that this error occurred and 
hope that it hasn't caused too much 
confusion. Many thanks to those indi- 
viduals who pointed this error out to us. 
—Creative Computing Software 

Attention 
Apple Programmers 

Two divisions of Creative Computing 
(Consulting and Software) have an imme- 
diate need for part-time, contract pro- 
grammers for the Apple. 

Creative Computing Software has 
approximately twenty programs that 
must be converted from other computers 
to the Apple. In addition, we are looking 
to add graphics enhancements, person- 
alization, better instructions, and the 
like. Some of the programs are games 
but there are also statistical packages, 
financial packages and the like. We also 
have several new programs that must be 
written from scratch. 

Creative Computing Consulting has 
several sizable contracts that require a 
large-scale programming effort. Most of 
these programs are for a "public" 
environment such as a museum or 
traveling exhibit so they must employ 
outstanding graphics and be "bullet 
proofed" against curious kids. 

If you consider yourself an outstand- 
ing Apple programmer (TRS-80, PET and 
other owners need not apply), please 
send us a brief statement of your 
qualifications and a sample cassette or 
disk with some of your programs. Send 
to Eric VanHorn, Creative Computing 
Software, P.O. Box 789-M, Morristown, 
NJ 07960. 
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We're looking for the most original use 
of an Apple since Adam. 



What in the name of Adam do people do with 
Apple Computers? 

You tell us. 

In a thousand words or less. 

If your story is original and intriguing enough, 
you could win a one-week all-expense paid trip for 
two to Hawaii. Which is the Closest we could 
come to paradise. 

Win fabulous prizes for 
creative writing. 

To enter, drop by your nearest Apple dealer and 
pick up an entry blank. Fill it out. Then write an 
article, irilOOO words or less, describing the unusual 
or interesting use you've found for your Apple. 

A jury of independent judges will cast the 
- deciding vote for the grand prize: a week for two, 
airfare included, in Hawaii. 

The judges will also choose 16 additional 
winners, two each from eight categories: 

CIRCLE 109 ON READER SERVICE CARD 



graphics/music, entertainment, home, business, 
education, scientific, professional, and industrial. 
And each winner will choose from a long list of 
longed-after Apple peripherals — from Apple 
Disk II's to Graphics Tablets to printers. 
Or you can take a $250 credit towards the 
purchase of any Apple product. 

The contest ends March 31,1980. All winners 
will be notified bv May 15. 

Entry forms are available at your participating 
Apple dealer. Call 800-538-9696, (800-662-9238 
in California), for the one nearest you. 

Mail the entry blank, your article and any 
photos to: Apple Computer, "What in the name 
of Adam" contest, 10260 Bandley Drive, 
Cupertino, CA 95014. 

And may the juiciest 
application win. 
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Up to four 18Mb Winchester- 
type hard disk drives 



Display terminal 



Letter-quality or dot 
matrix printer 



Horizon I/O flexibility 
allows expansion to 
meet your needs 



Unsurpassed Performance and Capacity! 

North Star now gives you hard disk capacity and process- 
ing performance never before possible at such a low 
price! Horizon is a proven, reliable, affordable computer 
system with unique hardware and software. Now the 
Horizons capabilities are expanded to meet your growing 
system requirements. In addition to hard disk perform- 
ance, the Horizon has I/O versatility and an optional hard- 
ware floating point board for high-performance number 
crunching. The North Star large disk is a Century Data 
Marksman, a Winchester-type drive that holds 18 million 
bytes of formatted data. The North Star controller inter- 
faces the drive(s) to the Horizon and takes full advantage 



NorthStaj^ 

North Star Computers Inc. 

1440 Fourth St. 

Berkeley, CA 94710 

(415) 527-6950 TWX/Telex 910-366-7001 
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of the high-performance characteristics of the drive. Our 
hard disk operating system implements a powerful file 
system as well as backup and recovery on floppy diskette. 

Software Is The Key! 

The Horizon's success to date has been built on the qual- 
ity of its system software (BASIC, DOS, PASCAL) and 
the very broad range and availability of application soft- 
ware. This reputation continues with our new hard disk 
system. Existing software is upward compatible for use 
with the hard disk system. And, with the dramatic increase 
in on-line storage and speed, there will be a continually 
expanding library of readily available application software. 
For more information, see your North Star dealer! 



HORIZON — HD-1 

Horizon computer with 64K 
RAM, 2 quad capacity mini 
drives and one HD-18 hard 
disk drive $9329 

HD-18 

Additional 18Mb hard disk drive 
for expansion of HD-1 , or your 
present Horizon $4999 



SYS-1N 

Complete Horizon HD-1 plus 
80 x 24 display terminal and 
NEC Spinwriter printer $13,239 



SYS-1A 

Complete Horizon HD-1 with 
80 x 24 display terminal and 
Anadex printer $11,319 
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Credit Due 

Dear Editor 

I enjoyed reading Jon Cohen's article, A Computer 
Driven Real Three-Dimensional Display (CC, Oct 
1979), and my pleasure at seeing again the Varifocal 
mirror drawings, adopted from my decade-old papers 
on this subject, was only mildly dampened by noting 
that Mr. Cohen had not referenced either Alan Traub 
as inventor of the Varifocal mirror technique or me as 
author of the two papers to which Mr. Cohen appears 
to have referred in preparation of his interesting 
Article 

I was a bit vexed when Mr. Cohen referred to my 
3-D computer-generated movie experimental system, in 
the context of describing his nrst-of-three example 
systems, as ". . . an imaginary system . . ." Oh, unkind 
cut' Mr. Cohen got most of the technical details about 
this system correct, even to specifying that the image 
source was a specially modified 600 frame per second 
movie projector (it was an experimental prototype 
loaned to me by Wollensak Optical Products when I 
was at Bell Laboratories in Murray Hill, N J ), and Mr. 
Cohen erred only in saying it was imaginary. To call 
this 3-D projector system "imaginary" as well as 
failing to reference the paper in which it was described 
in detail was surely adding insult to injury, but let that 
pass. 

However. Mr. Cohen then makes more important 
omissions which should be corrected. As an image 
source, Mr. Cohen's second example utilizes xenon 
flash tube illumination of slide transparencies and his 
third example uses a PDP-11 controlled CRT display 
tube. In describing work done on such systems Mr. 
Cohen notes only that the second system ( "... is 
currently being developed by [Cohen] . . . ," and the 
third system ". . . has been built by [Cohen] . . ." Thus, 
Mr. Cohen fails to mention the original work of Alan 
Traub, then of MITRE Corporation, who carried out 
essentially the same two experiments about 12 years 
ago. You might be interested to know that Traub's 
demonstrations included a computer-generated, color 
3-D simulation of an air-traffic controller's radar 
display, complete with moving aircraft symbols over 
terrain maps. 

I am sure these omissions were unintentional 
and they don't detract from the significance of the 
interesting work which Mr. Cohen is reporting. But the 
record should be clarified; hence, this letter and the 
following list of references which should have been 
included: 

1. Cohen, J. "A Computer Driven Real Three- 
Dimensional Display, " Creative Computing, 5(10) Oct., 
1979. 

2. Traub, A. C, Applied Optics, 6, p.1085, 1967. 
3. Traub, A. C, A New 3-Dimensional Display 

Technique", Document No. M68-4, MITRE Corp., 1968. 

4. Rawson, E. G., "3-D Computer-Generated 
Movies Using a Varifocal Mirror", Applied Optics, 7, 
p.1505, August 1968. 

5. Rawson, E. G.. "Vibrating Varifocal Mirrors for 
IEEE Spectrum, 6(9), p.37 September 

Eric G. Rawson, 

Project Leader, 

Image, Transmission Technology 

Xerox Corp. 

Palo Alto, CA 94304 




3-D Imaging", 
1969. 



Switchless Phone Dialer 

Dear Editor 

The article by Gene Christianson on the Phone 
Dialer (CC Nov 1979) presents a very good idea, but I 
would like to improve upon it if I might. 

He used the normallyopen contacts on the relay and 
an SPST switch to override so the phone could be used 
manually. If he had used the normally closed contacts 
and changed Lines 82, 86 and 108, the Device would 
work perfectly without the need to flip any switches. 
I thought you might like to pass this on to your 
readers (If they haven't figured it out for themselves). 

Jeff Jones 

1303 Park Ave #4 

Omaha, NE 68105 



Software Vendors 

Dear Editor. 

Following are some recent experiences I've had 
with various software vendors. 

— Synergistics Software replied immediately with 
a nice handwritten note and a fix in response to a 
problem I told them about. 

— I recently received a new copy of Eric's Talking 
Disk from Programma International with a request to 
mail the defective one back to them. They sent a later 
letter which stated that "a substantial number of users 
who purchase this software are not fully aware of its 

E roper use." I can't get the demo to run which plays 
ack my own voice on the new copy, either. I'll admit 
that I may not know how to use the program correctly 
and the only consolation I have is that I fall into the 
"substantial number of users" group. 

—I mailed my copy of Sargon back to Hayden 
Books and told them about an illegal move problem. 
They sent back a new copy with the necessary 
corrections and now Sargon works great (Sargon I). 
In all cases, the vendors tried to correct the 
problems and also stated that if I was still not satisfied 
a full refund would be made. Even so, I'm rather 
disappointed with the software industry as a whole. If I 
can find errors after just a few hours then why can't 
they find them before releasing the programs? There 
must have come a time, after receiving several 
complaints and reports of problems, that the vendors 
realized there were bugs in their software. I feel they 
should be willing to correct the ones which have been 
sold (and they appear to be — if you write) and, in 
addition, recall the copies that are sitting on store 
shelves. Leaving bad software on the shelves doesn't 
strike me as the correct way to do business. 

Clarence Greathouse 

14422 SE 132nd 

Renton, WA 98055 
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Unhappy 

Dear Editor 

Recently we purchased a Southwest Technical 
Products (SWTP) 6809 computer, and we have several 
misgivings which we would like to pass on to your 
readers, particularly in the area ot documentation 
(which was nonexistent in several areas) and in the 
attitude taken toward the consumer. 

The most serious of the aforementioned problems 
was that the documentation for the ROM monitor is 
incomplete. This is compounded by the fact that the 
ROM contains several bugs. In effect, this makes it 
almost unuseable. Proprietary information was the 
excuse which was given by Dan Meyer, the company 
president, when I called SWTP to discuss the matter. 
However, we are still stuck with an unuseable ROM 
monitor. 

The second of the problems is that the CPU board 
contains memory mapping hardware. There is no 
documentation on how to use it or how it works. Mr. 
Meyer explained that it is not put there for use by the 
consumer, and that it is solely for SWTP's systems 
programming use. We have thereby paid for circuitry 
which we cannot use, and which may cause problems if 
activated by the ROM monitor. 

Another problem is that the 6809 OP codes are not 
made available through SWTP. They are available 
from Motorola, although you'd normally expect that 
kind of thing to be available from the system vendor. 

The attitude of Mr. Meyer, when I called to discuss 
the problems, seemed to be one of "this is what we 
offer, take it or leave it." Apparently we've already 
taken it (or have been taken), since they have our 
money, but we will obviously not be doing business in 
the future with SWTP. Perhaps others will be wise 
enough to learn from our experience. 

Glen Worstell 

President, Parsec Systems 

2521 Lewis Drive 

Sebastopol, CA 95472 



Pay For Software? 

Dear Editor 

In the May 1979 issue, there is an article by Randy 
Heuer entitled "How To Write A User Oriented 
Program." In this article, the statement "while you 
probably won't get rich selling your software, it is 
certainly nice to receive an occasional check . . ." 
implies that your software company will pay for 
programs. However, I have heard from many friends 
that your company doesn't pay for programs. Well, do 
you? 

Scott Panzer 

26 Lucille Lane 

Dix Hills, NY 11746 

Perhaps you should double-check on other things 
those friends tell you, Scott. Yes, we pay a royalty for 
the programs distributed through Sensational Soft- 
ware. As we have noted in several issues of Creative, 
our normal royalty is 10% of the list (retail) price of the 
tape or disk. 

In addition, Creative Computing Consulting is 
seeking Apple programmers to do conversions and 
original programming on contract. —DHA 



CRIBBAGE for my PET?? 

Dear Editor 

I received recently a letter from a sixth grader in a 
special computer class asking if I had a PET version of 
my CRIBBAGE program (May 1979). Unfortunately I 
am unable to help this student but if any reader has 
implemented CRIBBAGE on a PET perhaps they 
would be willing to contact'. 
Jonathan Fraley 

McCall Donnelly Elementary School 
P.O. Box 967 
McCall, Idaho 83638 
Thanks. 

Sheppard Yarrow 

6513 Farmingdale Court 

Derwood, MD 20855 

Questionable Advertising 

Dear Editor 

I received the enclosed mailing today. It may be an 
honest offer but it certainly looks too much like the 
type of ads published by David Winthrop & World 
Power. 

This mailing claims that "80-Microcomputing" is a 
brand new magazine & yet also claims to nave "over 
50,000 TRS-80 owners and users" reading 80 Micro- 
computing every month. It claims to be the only major 
publication for the TRS-80 without having yet 
published the first issue. 

The charter subscription offer also promises a free 
book of 80 Programs, programs that "will in fact, be 
published on cassette in the near future. (These are not 
the rejects)." 

The superlatives flow on. If this is a fraud it is one 
that is using the U.S. Mails. If it is not a fraud then 
their ad writers are a little thin on credibility. 

I'm not sure what should be done. I hope that you 
can have it checked out. 

Thank you! 

Howard W. Mueller 

Box 17 

Pocahontas, MO 63779 

80 Microcomputing will be published by 
1001001, Inc. headed by Wayne Green. The company 
currently publishes Kilobaud Microcomputing and 
73 Magazine. 

We, too, find the description of the book "80 
Programs" somewhat thin on credibility in its claim to 
be 'the largest collection of TRS-80 programs ever 
published." Our book "Basic Computer Games: TRS-80 
Edition" contains 101 programs and is available in 
Radio Shack stores all over the world. —DHA 



Horizon with Pencil 

Dear Editor: 

I am in the process of turning my SOL in for a new 
Horizon so I am eagerly reading anything I can get on the 
Horizon. I was dreadfully disappointed in the article by 
Heyman in the October issue. Instead of any constructive 
information on getting started it was a diatribe of a book 
which isn't all that bad. 

Why don't you get someone to write an article on how to 
use PENCIL with an HORIZON, perhaps adding a VDM 
board and an extra monitor? 

Dr. Goerge L. Haller 

Hound Ears Club 

Blowing Rock, N.C. 28605 

And, how about some techniques on converting a 
terminal, such as the Soroc, to a monitor? —JC 
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CP/M* VERSION 2 FOR TRS-80* MODEL II NOW AVAILABLE 
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Chess Tournament Feedback 

Dear Editor. 

I read Stephen Kimmel's report on the "First 
Creative Computing Microcomputer Chess Tourna- 
ment" with great interest. His observations concerning 
the capabilities and weaknesses of the contestants 
were intelligent and entertaining. 

However, I am concerned over the failure of the 
author to mention a very serious problem which exists 
in at least two micro-chess machines: 

THEY CHEAT! (at least sometimes) 

What I mean, of course, is that bugs in their 
programming cause illegal moves to be generated. The 
two types of illegal moves which I have personally 
observed include: 

a) Capturing a piece with an "empty" square 

b) Moving a piece onto a square occupied by a 
piece of the same color. 

These moves seem to occur when the machine is in 
deep trouble: facing a forced mate, say, or the 
unavoidable loss of a Queen. 

The specific micro-chess machines in which I have 
seen these problems are Boris and Compu-Chess. I 
played several games with both machines, and was 
careful to follow all moves correctly. I was told by a 
salesperson that these bugs are known to the manu- 
facturers (then why are the units still on sale?). 

I feel that these problems should be brought to the 
attention of potential purchasers of these machines. 
After all, one can find a human opponent who cheats 
fairly easily, without forking over a large sum of cash 
for the privilege of playing him! 

James F. Glass 

4747 Orion Ave., Apt. C 

Sherman Oaks, CA 91403 

Dear Editor 

Your October 1979 issue was a great puzzler. On 
page 14 you published a letter from an irate purchaser 
of the SARGON chess program ("it makes illegal 
moves"). On page 72, in your article on the chess 
tournament, you state: "SARGON, therefore, was the 
computer winner. It is easily, the best program 
available for the home computer." 
Well, who's right??! 

Geoff Puterbaugh 

980 Henderson #1 

Sunnyvale, CA 94086 

Dear Editor 

I have an amusing piece of information for 
Stephen KimmeL author of "1st Creative Computing 
Microcomputer Chess Tournament." Try the following 
move sequence with Jennings' Microchess 1-5 (I used a 
4K Level II TRS-80 (IQ=3)): 

Human TRS-80 

1. KP-K4 KP-K4 

2. Q-B3 B-N4 

3. B-B4 P-Q4 

4. BxP QBP-B3?!? 

5. QxP Mate 

Yes, this program falls for a slight variation on the 
oldest trick in chess. I'm going to take Kimmel's advice 
and return this chess buffoon to its authors. 

Thanks, Steve, for a most informative article. 

Dan Goldman 

711 W. Diamond Ave. 

Hazleton, PA 18201 



Curious note here . . . in preparing the article we 
played over a hundred games with the programs and 
machines. Many of these were to make sure that the 
human players knew how to operate the machines, to 
check the programs for gross defects, etc. In these 
preliminary games I heard numerous complaints of 
illegal moves. When I got into the recorded games . . . 
the games that counted . . . there were no instances of 
illegal moves by the computer. Later analysis of 
reported illegal moves by the dedicated machines, 
Boris, Challenger, et al showed that the computer's 
board in memory differed from the set up board. The 
implication was that the error was by the human, not 
the machine. 

I talked to the people with Fidelity about chess 
computers that make mistakes. Apparently they 
receive dozens of units every month from irate owners 
complaining of illegal moves. When tested, the units 
function correctly and cannot be forced to make 
improper moves. Usually. 

If you have a program or a machine that you think 
is making illegal moves there are a number of things 
you should do. 

First: Make sure it is an illegal move. If you've 
never seen capture by en passant before, you'll scream 
illegal. I had one in a preliminary. The computer 
castled through a check, ft wasn't in check before and 
it wasn't in check afterwards but I had an attack on 
one of the squares between. Human 1400 assures me 
that is a legal move. 

Second: Check to make sure you and the computer 
agree on the placement of the pieces. This is obviously 
what is happening with Mr. Glass and his "capture 
with an empty square. " All of the dedicated machines 
I've seen have the ability to verify location of the 
pieces. I've never heard of this happening with the full 
ooard display programs. For obvious reasons. 

Third: Reset the board and the computer and see if 
it will do it again. The dedicated computers seem to be 
especially sensitive to such things as voltage surges. If 
the computer makes the same illegal move then your 
unit probably has a problem. If not . . . 

Fourth: Start recording the games. The service 
people are going to try and duplicate the situation in 
which the mistake occurred. Having the full game up to 
the point of error is infinitely preferable to just having 
the board position. Further, if it is you that's making 
the mistake, it will reduce the errors by making you 
think the move through. This will be especially true if 
you are unfamiliar with the notation system the 
computer uses. 

Fifth: If you are having problems with a cassette 
program try the program . . . and the specific game . . . 
on someone else's computer. It has been known to have 
a bad RAM drop out a few bytes with the attendant 
loss of program . . . or program alteration. Since Mr. 
Greathouse is having problems with several programs, 
he might be haying computer problems instead. 
Cassettes are subject to a vast number of problems. If, 
after all of this, you are still having problems . . . 

Sixth: Send it back. All of the manufacturers, 
Personal Software, and Hayden Publishing will 
replace a defective unit/tape. If Mr. Greathouse is 
certain that it is a fault with the program, then he 
should definitely send it back! Hayden is very good 
about replacing bad tapes. More generally, any time 
you get a baa program tape you should demand a 
replacement or your money back. 

None of the programs or machines have a "Cheat" 
subroutine in them. When I was careful, I only got a 
bad move out of Microchess and that was within the 
limits long publicized for that program. 

I've seen three or four variations on the Fool's 
Mate. Microchess falls for them all. It might be 
interesting to see who can come up with the shortest 

fame against Microchess. Can anybody beat it in four? 
'hree? —Stephen Kimmel 
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CREATIVE COMPUTING 



Outpost 

written all over it. Get 

into your system, 




TANO's Outpost 11 

is a highly flexible, easily adaptable 

..computer capable of handling virtually any control, 

communications, or stand-alone small business computing application. 

Two points make it the outstanding choice for incorporation into OEM systems: 

Cost. TANO's high-volume production means Outpost 1 1 is available at 

a most attractive price, with multi-unit discounts. 

Reliability. Modular design using 

military/industrial grade components yields 6060-hour MTBF performance. 

Add to that the finest software tools and a variety of interface options 

(serial line, parallel, digital acquisition or analog acquisition) and you have 

the most versatile microcomputer in its price range. 

If you're an OEM, Outpost 1 1 has your name written all over it. 

See your nearest TANO representative and get it into your system. 

TANO Corporation, 4301 PocheCourt West, New Orleans, La. 70129, (504) 254-3500. 
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One view of a micro-battle 



WordStar vs. Electric Pencil 



Consider the nature of serious 
computer-based text processing: 

At one level, it's really idea pro- 
cessing . . . using the speed and con- 
venience of a microcomputer almost 
as though it were a dictating machine 
absorbing your thoughts as quickly as 
you can translate them from brain 
waves into words. 

At another level, it's efficiency- 
oriented. You want to eliminate as 
much repetitive work as you can — 
never typing text a second time and 
easily' moving changes in and out of 
existi ng material. 

PENCIL emerges from 
this dogfight with 
some little triumphs of 
its own. 

And at another, it's presentation 
processing. At this stage, the idea is to 
maintain control over the final "look" 
of the material, achieving a degree of 
control similar to that possible when 
characters are individually placed — 
but without giving up the advantages 
of speed and efficiency. 

In selecting word processing soft- 
ware to run on a microcomputer, we 
have to weigh those matters, the 
relative importance of each, and ap- 
plications at hand. With those factors 
in mind, I'm about to compare two 
programs: 

The newer WordStar'* is the sub- 
ject of hard-selling two-page ads in 
the magazines, claiming that ". . . de- 
lighted users have thrown away their 
pencils . . ." in a too obvious rap at the 
lower-priced competition that's been 
around longer. As smart as MicroPro 
International is in realizing that their 
best market for WordStar consists of 
micro users who've already been intro- 
duced to word processing through 
Michael Shrayer's ELECTRIC PEN- 
CIL'", it's less than accurate to suggest 
that the advent of WordStar should be 
the occasion for throwing away 
PENCIL software. WordStar ads have 
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invited the comparison, so let's make 
it. PENCIL is our second piece of soft- 
ware for this evaluation. 

"Unfair!" you say? True, Word- 
Star sells in the $450-500 vicinity, a 
neighborhood notably more demand- 
ing of your software dollar than 
PENCIL'S current $100-300. But 
PENCIL emerges from this dogfight 
with some little triumphs of its own, 
despite its more streamlined price. 

In the world of flight. PENCIL 
would be a single-engine retractible, 
providing economical rapid transit. 
WordStar is a tactical fighter, requir- 
ing more operator sophistication and 
providing greater control at every level. 
At times. PENCIL behaves like a damp 
paper airplane when precision strafing 
is needed. But there are times when 
WordStar feels like a blimp when a 
hang glider would do the trick. 

An example of PENCIL'S stream- 
lined nature has to do with its size, just 
6K, compared with WordStar's 
30K. When PENCIL is running, active 
machine memory can hold a larger 
document. So section accesses, 
searches (and replacements) are 
lightning fast through very large files. 
On the other hand, since PENCIL 
works only within available RAM 
(random access memory), it simply 
cannot handle a file bigger than system 
memory. (You can segment a docu- 
ment, but that means keeping track of 
multiple files.) 

WordStar buffers text to and from 
disk, automatically scooping up hand- 
fuls as needed, putting parts back to 
make room. Because of WordStar's 
size, less active memory is available to 
contain the file being edited. So global 
(whole-file) search/replace missions 
require disk access, and therefore 
more time. 

This means that in a 24,000- 
character zone of file sizes admitted 
into RAM by PENCIL but too big to be 
in RAM with WordStar, PENCIL has 
the edge. In a 48K system, this applies 
to files roughly between 17.000 and 
41,000 characters. But PENCIL'S edge 
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PENCIL'S character-drop: ELECTRIC PENCIL 
is supposed to "carry" words to the next 
line of the screen when they won't fit. But in 
high-speed input, characters are often lost 
during the transition. Here, the word "charact- 
ers," too long for one line, is jumped to the 
next. But It comes out "characts," the "er" is 
lost. 

surfaces only in that particular size 
zone (which is dependent on amount 
of RAM in your system). In everyday 
uses, a few files get large enough to 
raise that problem, so it's not a good 
basis for a decision on where your text 
editing software dollar should go. 

But there are good grounds on 
which to make a decision. The two sys- 
tems are different, in important ways. 

PENCIL is input oriented, while 
WordStar is more output oriented. 
Not that PENCIL suffers disabling dis- 
advantages in the output arena, nor 
that WordStar has serious input dis- 
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WordStar, cont'd . . . 

advantages. Each has an important 
place in the market. 

Input is creation-related. It occurs 
closest to the initial assembling of 
vocabulary to express an idea. It may 
be an author or executive preparing a 
first draft, or a secretary typing from 
a dictating medium playing back, from 
notes prepared earlier, or from another 
document not yet in electronic form. 

At this stage, the greatest interest 
is in simply getting the words into a 
form which will allow later editing and 
other manipulation. Automatic format- 
ing is unnecessary and can even be 
troublesome. 

This is the region of PENCIL'S 
strength. Operating out of CP/M, to get 
started you simply type the word 
PENCIL, wait seconds, and then begin 
typing content onto the screen. 

WordStar, by contrast, requires 
this sequence of steps: 

Type WS . . . then wait several seconds 

Select from among 5 choices by typing 

D, meaning you're about to edit a 

(new) document file. 

Provide the FILENAME.TYP. Wait 

briefly. 
Set a "Help" level to allow the emptiest 
sheet of paper on which to work, by 
typing ® J, H, 2. (© indicates a simul- 
taneous control key depression.) 
To avoid automatic justification (prob- 
ably unwanted during this first-draft 
stage) type ©O, J. 
Now, start typing text. 

So if you want to use your system 
as you might use a typewriter — by 
turning to it and banging out an idea or 
a draft of a letter — PENCIL will do just 



fine, thank you, and WordStar has 
those few disadvantages in the form of 
waits, distractions and minor sluggish- 
ness. All this is quite non-fatal, but a bit 
annoying when you've turned to the 
equipment to put a fleeting thought 
into elusive words as rapidly as pos- 
sible. 



The two systems are 
different, in important 
ways. 



I'm nit-picking WordStar, of 
course. Its several advantages far out- 
weigh this minor distraction, but I do 
wish to press the point that if you don't 
need Word-Star's other capabilities, in 
this department at least, PENCIL is 
superior. 

Similarly, as part of this input pro- 
cess, a writer might want to strike a 
quick print and go off to a corner to 
scribble on it. Authors will always want 
to see the whole before them, to make 
comparisons, gross cuts and ex- 
changes among disconnected sec- 
tions of text. In WordStar, to get a quick 
hard copy of whatever you're working 
on, you're required to execute this 
sequence of commands: 

c K, D. Wait while the text is saved. 
Select P (for print) for the menu of 

choices. 
Respond with FILENAME.TYP when 

asked what file. 
Wait while it's loaded. 
Respond to 5 questions about print 

format. 



Wait for hard copy. 

That's about 20 keystrokes and 
three waits, one of which is the obvious 
wait during printing. 

But in PENCIL, that's the only 
necessary wait. You need not even 
save the text file before printing it, 
though that's unwise for anything 
longer than a short note, and this 
sequence of commands gets the print- 
out started: 

®B, to put the cursor at the head of file. 
©P, to bring up the menu of print 

choices. 
(Optionally, some format choices.) 
Carriage return — to start the printing. 

That's three keystrokes and no 
waiting except for printout. 

There are some other slick ad- 
vantages to PENCIL for this kind of 
work. While composing you can check 
a disk contents in two keystrokes; with 
a few more you can check selective 
directory of only the kinds of files 
you're looking for. WordStar, by 
contrast, requires a return to CP/M for 
directory information — meaning that 
first you must save the file you're work- 
ing on and go through much of the pro- 
cess described above. 

In PENCIL, you can easily scroll 
through text, starting with a single con- 
trol character, reversing direction with 
another. WordStar demands a three- 
character entry (two of them control 
characters) for a line-by-line scroll 
toward the head of text, and a similar 
entry to go the other way. 

PENCIL allows printing to be 
stopped (type ESCAPE) for a change 
to be made. Printing can be resumed 




WordStar's "help" system In action. The 
on-screen user's manual takes up space, but 
can be reduced to Just one line by simple 
commands. It provides the user with a ready 
reference that saves the time that might 
ordinarily be spent looking things up In the 
manual. Format control characters appear at 
the left below the help material. The lines of 
hyphens are "rulers" that can be transplanted 
Into position as page formatters: A selection 
can be kept at hand, and called in whenever 
needed. 




WordStar provides In-text "place-markers" 
that don't print but allow you to return quickly 
to any of 10 pre-marked spots. They appear 
here as the hlghllghted<1> and <2>. The 
highlighted section of text is marked for a 
block move, copy, or deletion. At the top of 
the screen, the K prefix information shows the 
user what his options are after commanding 
control-K. 
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An Entire Family of Disk Drives for 
APPLE, TRS-80*, and S-1 00 Computers 



Only LOBO DRIVES offers you an entire family of 
fully-compatible disk drives to select from. 
Whatever computer you're using, APPLE, TRS-80, 
or S-1 00, you can add a LOBO drive now, with the 
peace-of-mind of knowing there's a whole family of 
drives available when you're ready to expand. 

And every drive you order comes complete with 
chassis and high reliability power supply. Each 
drive is 1 00% calibrated, burned-in, and 
performance tested on either an APPLE, TRS-80, 
or S-1 00 computer before it's shipped. We are so 
proud of our drives . . . our quality, reliability, and 
performance, that we back-up every drive with a 
one year, 1 00% parts/labor warranty. 

400 SERIES FLOPPY DISK DRIVES 

Meet our low-cost 5.25-inch 
mini drive that records data 
in either hard or soft 
sectored format. It is 
available in single or double 

density configurations, with a total storage 

capacity of 220K bytes. 

800/801 SERIES FLOPPY DISK DRIVES 

Here is our dual 8-inch 
Floppy disk memory unit. It 
records and retrieves data 
on standard 8-inch 
diskettes to provide 800K 
bytes of data storage unformatted, or 51 2K bytes 



935 Camino Del Sur 
Goleta, California 93017 
(805) 685-4546 

"CAN YOU REALLY AFFORD 
TOPAYLESSr 







in IBM format per drive. It is also available with 
double-sided, double-density capabilities, for a 
maximum storage capacity of 1 .6 Megabytes. 

7000 SERIES HARD DISK DRIVES 

The latest member of our 
drive family, the Series 
7000 is an 8-inch, 10 Mega- 
byte Winchester Technology, 
hard disk drive. It is fully 
hardware/software compatible and comes 
complete with disk controller. Now you can have 
the convenience, speed, reliability, and all the 
storage capacity you need. 

Call or write for the complete LOBO DRIVES story. 
Find out just how competitively priced a quality 
drive can be. 

Quantity discounts available - 
Dealer inquiries invited. 



Yes, I want to know more about LOBO Drives 
and what they can do. Send me information on: 
D TRS-80 DAPPLE □ S-1 00 



D 5 1/4-in. Floppy drive 



D 8-in. Floppy drive 
Single sided 
Double sided 



D 8-in. Winchester hard 
disk, 1 Mbyte drive 

O Double density 
expansion interface 



Company 
Address 



City 

Phooa No. 
If 



INTERNATIONAL 
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WordStar, cont'd . . . 

where terminated, though you do have 
to put the cursor at the pick-up spot. 

So, at Its price, PENCIL wins as an 
input device of this type. It makes your 
micro into an efficient supertypewriter 
and it behaves most like a typewriter 
when the job to be done is the quick 
drafting of text. 

But with some adaptation, Word- 
Star affords very nearly the same flexi- 
bility, and some outstanding ad- 
vantages in the formatting of output . . . 
particularly if it's useful to you to see a 
line-by-line video approximation of 
that output before print-out begins. 

WordStar's Output Orientation 

An output-oriented system is 
secretarial in nature. The intent is to 
use form and style to facilitate the re- 
ception of the communication. Mar- 
gins, indentations, outline formatting, 
footnotes, the placement of page 
breaks, headings and page numbers, 
justification (or not) ... all can serve to 
eliminate barriers between the ideas 
and the reader. 

Authors will always 
want to see the whole 
before them, to make 
comparisons, gross 
cuts and exchanges 
among disconnected 
sections of text. 

For most purposes, PENCIL is 
fully adequate, providing an assort- 
ment of controls that do everything a 
typewriter might do and more: on an 
incremental printer (a Diablo, Qumeor 
Spinwriter, essential to serious word 
processing at the output stage), pro- 
viding boldface, variable character 
spacing, underlining, subtle justifica- 
tion through insertion of intercharacter 
microspaces and so on. 

In short, it does the job at a bargain 
price, particularly if you're willing to 
make a work rough of important ma- 
terial as an aid in making formatting 
decisions. 

But in this realm, WordStar is king. 
Generally, you won't have to make a 
work rough, because formatting is 
shown on-screen. The system auto- 
matically computes page breaks and 
line-to-line transitions and displays 
them during composition or re- 
formatting. There are provisions for 
circumventing the programmed deci- 
sions, too: "If there are fewer than n 
lines remaining on the type page, put 
a page break here" (and so on). 

And there are some capabilities 
PENCIL just won't provide, even with 



extensive manipulation. Superscripts 
and subscripts, for example, for things 
like the ™ symbol or footnotes. You can 
even control the amount of subscript 
or superscript offset in 48ths of inches. 
Line spacing is similarly controllable, 
so that what PENCIL deals with as 
simple single or double spacing, 
WordStar provides with far greater 
control. WordStar offers greater flex- 
ibility in intercharacter spacing, too. If 
you happen to need one or another of 
WordStar's special capabilities, you 
get a bonanza of other capabilities 
along with it. 

Some of those special capabilities 
are on the input side. At its higher 
price, WordStar could hardly excuse 
stripped-down input. 

One stunning advantage allows 
review or on-screen formatting of a 
document with minor revision, while in 
a neatly contrived time-share arrange- 
ment another is being printed. 

On-screen formatting is both an 
advantage and a disadvantage. For the 
output-oriented secretarial-style task, 
it allows a running preview of what the 
text will look like, and on-screen re- 
formatting with a few keystrokes. It lets 
you violate margins that would other- 



wise be there, see charts up to screen 
width in final form, preview paragraph 
transfers shown in reverse video, spot 
place markers through the text with 
just two keystrokes and return to them 
with just two more. 

Both systems provide for text 
searches, as well as text-replace cap- 
abilities. But WordStar lets you option- 
ally disregard upper/lower case, 
allows item by item yes/no on search 
and replace operations and provides 
for backward search through the text 
to replace only in those instances 
occurring in text that precedes the 
cursor position. (PENCIL allows 
search (and replace) only in material 
past the cursor position.) It lets you 
mark a block of text and then write that 
text out to a separate file, something 
which can be done in PENCIL only 
with a series of potentially confusing 
manipulations. 

In the realm of cursor movement 
— a critical concern in any system of 
this kind since the cursor is constant 
reference point for all work and must 
be moved about easily to make 
changes — WordStar offers more 
options. Here's a comparative check- 
list: 



CURSOR . . . 


WordStar 


PENCIL 


1 pft 

o L. one character 

Right 


©S 
©D 


©A 
©S 


Left „ 


©Q©S 


return 


Right ex P ress 


©Q©D/tabs 


tabs 


Le tt one word 


©A 


none 


Right 


©F 


none 


P one line 


<=E 


©W 


Down 


©X 


©Z 


'°P line of screen 


©QE 


©Q (top left: home) 


Bottom 


©QX 


none 


Scroll toward top of text 


©QQ®E 


©X 


Scroll toward end of text 


©QQ©X 


©E 


End of ,ext 


©QR 
©QC 


©B 

©N 


Page forward 
Page backward 


©C 
©R 


Scroll+spacebar 


Position before last command 


©QP 


none 


DELETIONS 






Whole line 


©Y 


©Y 


Word right of cursor 


©T 


none 


ipft 
Line ,~r. of cursor 


©Qdel 


none 


right 


©QY 


©T 


Delete a marked paragraph 


®QY 


©U 


INSERTIONS relative to cursor 






Start/stop insertion in line 


©V 


©F 


Insert a new line 


©N 


©G 


Move a marked paragraph 


®QV 


©H 


Find 


©QF 


©V 


Continue search 


©L 


©c 


Fine/replace-with 


©QA 


©v 



Note the utter absence of compatibility between systems, ranging from loose 
confusion to direct opposite assignments. Switching between systems, in- 
advisable, keeps the equipment in the foreground of the operator's mind, not the 
background where it belongs. 
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A PENCIL feature WordStar doesn't offer: At 
any time, three keystrokes produce a directory 
of files on the disk — handy when you may 
have forgotten the title of your last temporary 
"save." 




WordStar is "menu-driven. 



Assimilability 

With little ceremony and less 
"learning," good word processing soft- 
ware should make the host machine a 
familiar and helpful friend. The first 
experience is critical, because in a 
people-controlled environment a sys- 
tem that's even temporarily more 
trouble than help will quickly become 
machina non grata. 

After that initial contact, the equip- 
ment should become as "transparent" 
as a familiar typewriter; even more, if 
possible. Interaction should quickly 
become — and almost always remain 
— a low-level mental subroutine that 
never crowds the priority business in 
the foreground of the user's mind. 

If you happen to need 
one or another of Word 
Star's special capabil- 
ities, you get a bon- 
anza of other cpabilit- 
ies along with it. 

PENCIL gets acquainted with 
finesse by being immediately and 
solidly responsive to the first session 
need: to try it out, at first, by entering 
some text. 

Even so, I constantly advise new 
users to make their first use something 
so trivial that they won't care at all if 
they lose several hours of work — 
which is easy to do in spite of best 
intentions to take every precaution. On 
a personal letter, that kind of error is 
annoying; hours away from a business 
deadline it can lead to cardiac arrest. 
Unfortunately, too many come to the 
system because they have an im- 
mediate need, and panic is not con- 
ducive to comfortable learning. 

Why? Well, an experienced typist 
trying for speed can lose lines of 
PENCIL text at first, because the car- 
riage return key sends the cursor to the 



head of the current line, not the next. 
The usual instinctive reaction to reach- 
ing the end of a line must be sup- 
pressed, along with the paper-oriented 
habit of spacing across existing text to 
pick up the entry progress. (In video, 
that just erases what was there.) There 
are other pitfalls, too, the most serious 
of which is that saving text with cursor 
in mid-file means that not only will the 
first part be lost, but any previous 
"saves" under that title will also be lost, 
possibly without the user becoming 
aware of it. (WordStar doesn't have 
this fault, and automatically backs up 
its files, but still, work can be lost. 

Through and after that get-ac- 
quainted session, PENCIL'S manual is 
a strength. Back when Microsoft was 
still selling MBASIC with an obfuscat- 
ing ragtag collection of pages that 
barely passed for a manual (a situation 
since corrected), Shrayer's PENCIL 
manual was a model of clarity — no 
doubt because in preparing it he could 
rely on an excellent text processing 
system. 

Once past the early hurdle of al- 
lowing the system to automatically 
initiate new lines by transferring the 
first won't-fit word to the head of the 
next line, the user will encounter 
PENCIL'S most vexing deficiency. In 
that very transfer, a fast typist will lose 
keystrikes. Even running at Z80 speed, 



the software just isn't fast enough to 
capture all the keystrikes made during 
that transition. So words come up in- 
complete. (I typically lose three char- 
acters.) Despite the ease with which 
corrections can be made, final material 
can still show up with micro-gaps in 
the final print-out. (As it happens, 
WordStar has a similar problem, less 
severe, under certain circumstances 
involving typing new text into mid- 
document.) 

Surviving that encounter is easy. A 
typist newly liberated from the tension 
of every keystrike being a potential 
work-stopping error will put up with 
much inconvenience in exchange. 

It's then that learning is facilitated 
by that three-keystroke ease of transi- 
tion from input to printout. The self- 
teaching student can easily experi- 
ment with a variety of print control 
codes, and rapidly become expert in 
anticipating their effect. (That's not as 
true in WordStar, where that complex 
negotiation must precede even a short 
print-out.) 

MicroPro has facilitated the learn- 
ing process in quite another way. 
WordStar uses far more control codes 
— necessarily so, to provide far greater 
detail of command. So there's a prefix 
system in which five control char- 
acters, in five categories of activity 
(©0 for On-screen formatting, for 
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NOW: SON OF PENCIL 

THE ELECTRIC PENCIL offers such slick strengths as a word processing 
system that it has spawned some mini-industries all by itself. The latest. 
MicroDaSys (of Los Angeles) has announced PENCIL SHARPENER, a $1 95 3K 
source file that adds a bouquet of features PENCIL users have been lusting 
after: 

File merging to allow the automatic print-out of variable-infested form 
letters with variable-satisfying data files, super/subscript roll, mid-word stops 
for type changes (with signal bell as a reminder), use of two-color ribbon, over- 
strikes to get special foreign language characters, outline formatting (point 
numbers off to the left, text indented), and — with a NEC Spinwriter — even 
more. WordStar seems to promise the same possibilities. MicroDaSys has a 
SHARPENER-like STAR BRIGHTENER in the works. 
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example), are followed by other letters 
to provide double-letter controls. c Q. 
E moves the cursor to the top of the 
screen, for example. ®K, 1 sets one of 
10 place-markers that the system can 
return to with ©Q, 1. 

Since there's no way you could 
initially remember the vast assortment 
of double-letter control codes, Word- 
Star keeps you from having to page 
through its excellent (and intensely 
detailed) manual by providing on- 
screen help. At first, there's a list of 
single key control options constantly 
at the top of the screen. And whenever 
you hit one of the five control prefixes 
but don't supply the rest, you see a dis- 
play of options. This allows the novice 
user to concentrate on the creation or 
presentation task, knowing that help is 
at hand if needed. 

That's more important than it may 
seem. The new user working from 
notes, checking a keyboard that has 
some unfamiliar gimcracks on it, and 
watching a screen to keep track of that 
new gizmo called a "cursor" can be 
"broken" by the additional distraction 
of having constantly to refer to a 
manual while keeping track of what it is 
he wanted to do in the first place. 

With familiarity, the user can re- 
duce the WordStar on-screen help 
(three keystrokes) to recover on- 
screen working space from the help 
area, or restore the help (three more) 
when memory fades. 

So WordStar goes PENCIL one 
better by providing the on-screen 
help, near at hand. In spite of this, 
PENCIL is easier to learn, because 
there's less to learn. But the difference 
in assimilability is not so great that this 
should be a deciding factor. 

A Criticism 

Having praised the systems for 
neatly leaping the assimilability bar- 
rier, I must reverse field and chastise 
both for a tactical error they share. 
Each suffers from a non-fatal de- 



ficiency arising from the way people 
learn to type. 

Typewriters quickly teach us that 
two keys down simultaneously is a 
no-no, leading to severe speed pen- 
alties like type jams in manual ma- 
chines and disordered characters in 
electrics. The exception is the double- 
handed capitalization function. For a 
typist it becomes so automatic that no 
"CPU" time is spent "assigning" the 
shift-key job to the "free" hand. 

How do these systems fall short? 
At the left end of the keyboard, both 
PENCIL and WordStar use these keys 
with the control key to manipulate the 
cursor within text (or text in relation to 
the cursor): 

Q W E R T 
e A S D F G 
Z X C 

Each system wisely uses a north- 
south-east-west scheme, to make 
directing keys easy to learn. But each 
unwisely requires simultaneous left- 
handed depression of both the control 
key (placed at the • on most key- 
boards) and a cursor-moving key. 
Hence, each system requires not only 
the physical coordination involved in 
moving the left hand to a "non-home" 
position, but the double keystrike as 
well. And since cursor movements 
come in bunches (three left, one up 
and so on) it means that a user must 
put the little finger on the control key 
and leave it there while the rest of the 
left hand blunders around on some 
not-the-usual keys. Such activity is so 
foreign to everything normally called 
for in skilled typing that it is just not 
efficient (even once learned). Past a 
certain level of skill, in fact, the more 
experienced a typist is, the harder it is 
to get this together. 

The easy solution would be a left- 
hand control key depression, and a 
right-hand cursor-directing strategy, a 
simple adaptation of the letter capital- 
izing method every typist knows well. 
Or, alternatively, keyboards with right- 
hand control keys (I've never seen 



WHY A MICRO FOR WORDPROCESSING? 

The reason for buying a lesscostly microcomputer for word processing (in- 
stead of the usual bundled hardware/software package) is that the equipment 
can be useful for a variety of other chores present and future. In my working 
environment of a television station, for example, micros (and programmable 
calculators) are now or one day will be in use in editorial control of program 
timing and editing, program scheduling, communication with viewers by direct 
mail, preparing semiform viewer response paragraphs, generating contract 
forms for talent, interactively developing and controlling budgets, scheduling 
shifts of union workers within contract specifications, scheduling heavy 
demand on videotape equipment and so on. 

By meeting text editing needs with microprocessor-based equipment, 
a company gains computer versatility and the flexibility of being able to pur- 
chase and use new word processing software, as the state of the art advances. 



one). In any case, on the Diablo and 
Spinwriter keyboards — the keyboards 
most likely to be used since these sys- 
tems are at their best with incremental 
printers, the control key is a left-hand 
key. 

Conclusion 

What's the bottom line? 

If you need a good input-oriented 
system in which the goal is to create 
files easily, and print them out without 
those special capabilities WordStar 
offers, then ELECTRIC PENCIL is your 
best buy for the money, especially if 
you don't have an incremental printer 
and don't anticipate buying or leasing 
one. 

Later, if you find text processing 
sufficiently important to call for the 
purchase of a NEC Spinwriter or 
Diablo printer, you can easily upgrade 
your PENCIL and provide some en- 
hanced output capabilities by adding 
MicroDaSys' PENCIL SHARPENER 
(see box). 



What about using 
both? That's how this 
article was prepared. 



On the other hand, if you have an 
immediate need to produce docu- 
ments containing footnotes, under 
tight control, and you have an in- 
cremental printer, WordStar is almost 
surely the way to go if you can pay the 
dues. What more could you ask? 

What about using both? That's 
how this article was prepared. PENCIL 
was my input "machine," grabbing my 
thoughts in draft form. Then the 
Michael Shrayer CONVERT utility 
turned those files into ASCII files 
which could be gobbled up by Word- 
Star. In WordStar, then, I edited the 
material, reformatted it and printed it 
out. 

But I don't recommend it, unless 
the operation you have in mind in- 
volves two people — a creator who 
uses only PENCIL and somebody else 
handling output (on WordStar). That's 
because the cursor movement keys 
conflict, badly in some cases, and 
press the "background" task of inter- 
action with the software to the fore- 
ground level where it interferes with 
the main business that should be 
getting your brain's attention. 

Whatever your decision, you'll get 
full value for your software dollar by 
purchasing either system. And if you 
do any writing, and don't yet have a 
microcomputer-based text processing 
system, either piece of software is a 
good reason to buy the hardware. □ 
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lild your own microcomputer 

as you learn 
computer technology at home. 



New from NRI! The Most Complete and Up-to-date Home Study Course Ever Offered 



As the microprocessor revolutionizes the 
computer world and microcomputers appear 
almost everywhere, NRI brings you a new, 
convenient, and effective way to keep up with 
this expanding technology. It's NRI's Computer 
technology Course, created and designed exclu- 
sively for learning at home in your spare time. 

Featuring NRI's Exclusive 
Dual Language Microcomputer 

NRI goes beyond book learning to 
give you practical, "hands-on" experience in 
designing circuitry, interfacing components, 
programming, and troubleshooting. As you 
learn, you actually assemble NRI's designed-for- 
learning microcomputer, incorporating the latest 
advances in the state of the art. It looks and 
operates like the finest of its kind, actually does 
more than many commercial units. But NRI 
engineers have designed components and 
planned assembly so it demonstrates important 
principles, gives you working experience in detect 
ing and correcting problems. And it's yours to 
keep, put to work in your own home or business. 

You also build and keep your own test 
instruments, including a transistorized volt- 
ohm meter and CMOS digital frequency counter. 
And NRI's Discovery Lab* broadens your 
horizons with specialized experiments and 
theory demonstrations. 

The Proven Way 
to Learn at Home 

You don't have to worry with travel, 
classes, or time lost from work when you learn 
the NRI way. As they have for more than 60 





years of teaching technical subjects, NRI brings 
the material to you. You study in your spare time, 
at your convenience, using "bite-size" lessons 
that program material into logical segments for 
easier assimilation. You perform experiments 
and build equipment using kits we supply. And 
your personal NRI instructor is always available 
for consultation should you have questions or 
problems. Over a million students have already 
shown the effectiveness of NRI training. 

Choice of Courses 



Send for Free Catalog. . . 
No Salesman Will Call 

Get the details on these exciting new 
courses in NRI's free, 100-page catalog. Shows 
all kits and equipment, lesson outlines, and full 
information, including facts on other electronics 
courses. Mail the coupon today and we'll rush 
your catalog. No salesman will ever call. Keep up 
with the latest technology as you learn on your 
own computer. If coupon has been removed, 
write to NRI Schools, Computer Department, 



Several courses are available, depending 3939 Wisconsin Ave., Washington, DC 20016. 



upon your needs and 
background. NRI's Master 
Course in Computer 
Technology starts with 
the fundamentals, ex- 
plores basic electronics 
and digital theory, the 
total computer world, 
and the microcomputer. 
The Advanced Course, 
for students already 
versed in electronics 
and general comput- 
ers, concentrates on the 
microprocessor and mic- 
rocomputer. In both 
courses, you build all 
instruments and your 
own computer. 




NR] Schools 

McGraw-Hill Continuing 

Education Center 
3959 Wisconsin Avenue 
Washington. DC 20016 
NO SALESMAN WILL CAUL 
Please check for one free catalog only 

□ Computer Electronics Including 

Microcomputers 
D TV/ Audio/Video Systems Servicing 
D Complete Communications Electronics 

with CB • FCC Licenses • Aircraft. 

Mobile. Marine Electronics 
O CB Specialists Course 
O Amateur Radio • Basic and Advanced 




All career counts 
approved under Gl Bill 
D Check for details 



D Digital Electronics • Electronic 

Technology • Basic Electronics 
D Small Engine Repair 
O Electrical Appliance Servicing 
D Automotive Mechanics 
D Auto Air Conditioning 
D Air Conditioning. Refrigeration, & Healing 

Including Solar Technology 



Cny/smt/Z»j 

Accredited by the Accrediting Commission of the National liome Study Coundl 



175-020 
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Some observations on implement- 
ing Pascal on any micro, with 
emphasis on the version from FMG 
for the TRS-80. 



Three hundred people squeezed 
together tor Peter Kugel's overview of 
Pascal, among the best attended 
seminars at the New York National 
Small Computer Show in August. Par- 
ticipants included aficionados of 
Cobol, Basic, Fortran, assembler and a 
few other languages, yet all shared 
interest in Pascal. Professor Kugel 
convinced the crowd that Pascal has 
emerged as a fundamental language, 
one serious programmers must learn. 
The Federal government has approved 
the development of ADA, a Pascal- 
based language, for use at all Federal 
computer installations. Just to stay 
abreast, professionals need a working 
knowledge of Pascal. Also, as more 
instructors employ it in their class- 
rooms, more programmers will use it in 
their work 

Why Pascal? 

What about computer hobbyists 
and other small system users? Among 
us brews a puzzling controversy over 
the relative merits of Basic and Pascal, 
yet Pascal is faster, more logical and 
substantially more flexible. Friends of 
Basic observe that it is entrenched. 
They argue that it is easy, but so is 
Pascal, and there is nothing Basic can 
do that Pascal cannot. The reverse is 
untrue. Although considerably more 
sophisticated than Basic, Pascal's 
elegant use is easier to learn, and it 
provides greater power for advanced 
programmers. Users grow with Pascal 
far more than they can with Basic. 

Niklaus Wirth developed Pascal to 
teach computer novices structured 
programming, sometimes described 
as coding without "GOTO." True, 



From FMG Corporation 



Pascal For The TRS-80 



David E. Powers 



structured programs rarely need 
"GOTO," but the characterization is an 
oversimplification. One writes a struc- 
tured program in "top-down" fashion, 
solving overarching problems first, 
postponing attention to detail, then 
breaking solutions into progressively 
smaller problems, solved individually 
in "stepwise refinement." Basic is 
oriented to lines rather than to logical 
units. Programs move through algor- 
ithms vertically. Pascal is block- 
structured; programmers build and 
manipulate whole ideas at once. 

The University of California at San 
Diego has implemented a version of 
Pascal suitable for microcomputers, 
yet considerably more powerful than a 



Wirth developed Pascal 
to teach computer nov- 
ices structured program- 
ming, sometimes de- 
scribed as coding with- 
out "GOTO." 

"tiny" Pascal that was not designed to 
meet Nicklaus Wirth's specifications, 
published in the Pascal User Manual 
and Report. I was delighted to learn 
that the FMG Corporation of Ft. Worth 
offered a release of UCSD Pascal for 
the TRS-80. It conforms well to Wirth's 
standards. 



LOOPCOUNT 1 . 28; 



1 PROGRAM FACTROOT, 

2 CONST EPSIL0N=lE-5; 

3 VAR LOWLIMIT, HIGHLIMIT, 

4 HOLD REAL; 

5 FUNCTION FACTORIAL (VALUE: INTEGER): REAL; 
VAR LOOPCOUNT : 1 28; 

7 PRODUCT REAL, 

8 BEGIN 

9 PRODUCT =1, 

18 FOR LOOPCOUNT = VALUE DOWNTO 1 DO 

il PRODUCT =PRODUCT*LOOPCOUNT; 

12 FACTORIAL "PRODUCT 

13 END; <*FACTORIAL*> 

14 FUNCTION NEWTON (START: REAL): REAL; 

15 VAR SQROOT REAL; 

16 BEGIN 

1? SQROOT =1; 

18 REPEAT 

19 SQROOT =(SQRO0T+START/SQRO0T)/2 

28 UNTIL ABS(START/SOR(SQROOT)-1)OEPSILON; 

21 NEWTON : =SQRO0T 

22 END; <*NEWTON*> 

23 BEGIN 

24 WRITELNC 'FACTORIAL AND ROOT COMPUTATION '); 

25 WRITELN; WRITE<'ENTER LOW LIMIT (8<LOW<21> »«> '); 

26 READLN (LOWLIMIT); 

27 WRITE CENTER HIGH LIMIT (1<HIGH<21> =«> '); 

28 READLN(HIGHLIMIT); 

29 FOR LOOPCOUNT =LOWLIMIT TO HIGHLIMIT DO 
38 BEGIN 

31 HOLD =FACTOR I AL< LOOPCOUNT); 

32 WRITELN(LOOPCOUNT 18. HOLD 18. NEWTON (HOLD) 18) 

33 END; 

34 END (*FACTRO0T*> 



David E Powers. 10 Wilben Ct , 
NY 11040 



New Hyde Park. 



Listing 1 
FACTROOT. a Pascal program to find fac- 
torials and their square roots 
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Pascal, cont'd. . . 




Speed is the most immediately 
impressive feature of Pascal on the 
TRS-80. A Basic interpreter must 
translate each Basic statement into 
machine language instructions every 
time a program runs, but a Pascal 
system compiles statements into 
object code only for the first execu- 
tion, then saves the low level code 
(called P-code) for future runs. Pascal 
yields faster execution, often by a 
factor of four or more. 

Listing 1, a Pascal program (in- 
spired by one in Peter Grogono's Pro- 
gramming in Pascal), calculates fac- 
torials in a user-selected range from 1 
to 20 and subsequently derives square 
roots of the factorials using Newton's 
iterative method (if R is an approxima- 
tion of the square root of a positive 
number, N, then (R+(N/R))/2 is a 
closer approximation), within an error 
of 0.00001 . Listing 2 performs the same 
task in Basic. I did not write either 
routine for efficiency, but deliberately 
multiplied number crunching to test 
speed. Also, I tried to prepare Basic 
code that would emulate the reada- 
bility of Pascal, yet remain within the 
syntactic bounds of TRS-80 disk Basic. 
With a range of 1 to 20, the Basic 
program runs for 35 seconds. The 
Pascal version does the job in less than 
12 seconds. Basic completes a range 
of 16 to 20 in 16 seconds; Pascal, in 
four. Imagine the consequences for 
long programs. 

Note the Pascal program's clarity. 
The language is self-documenting, 
particularly since it allows long distinct 
variable names. Indentations demon- 
strate graphically the logic of program 
units. The heart of the Pascal version of 
"factroot" is the last third, the largest 
logical structure, beginning at line 23. 
(Pascal programs do not customarily 
have line numbers; the numbers in 
Listing 1 are for reader convenience.) It 
prints instructions (lines 24, 25 and 27), 
and reads information from the key- 
board (lines 26 and 28). Next, the 

The language is self- 
documenting, particu- 
larly since it allows long 
distinct variable names. 

program enters a loop (line 29-33) 
which calculates factorials in the 
selected range (line 31) and displays 
the results along with the square roots 
of the results (line 32). The program 
calls the functions "Factorial" and 
"Newton" and passes to them the 
parameters "Loopcount" and "Hold." 
Function "Factorial" (line 5) yields 
a real result. "Loopcount" is a local 
variable (line 6); it is not the same 



"Loopcount" as in the main program. 
Also, the program allows "Loopcount" 
a value range from 1 to 20; any value 
outside that range will cause abnormal 
termination. The function declares a 
variable, "Product," to hold a real 
number. The loop (lines 10-11) runs 
until the factorial is calculated, then 
returns the value of "Product" to the 
calling point in the function name, 
"Factorial" (line 12). 

"Newton" (line 14), the square root 
calculation sequence, accepts the 
value passed in the real parameter, 
"Start." The variable "Sqroot" is 
declared as real (line 15) and a 
repeated statement calculates the 
result iteratively (lines 18-19), ter- 
minating when the test in line 20 is 
satisfied. 

The beginning of the program 
contains its name and a declaration of 
a constant, "Epsilon," the error allowed 
in the "Newton" function. The program 
allots a subrange of integers from 1 to 
20 to variables "Lowlimit," "Highlimit" 
and "Loopcount." "Hold" is declared 
as a real variable. 

Listings 3 and 4 (of a trivial 
program called "Reverse") compare 
relative string manipulation speed. 
Either version will accept a typed-in 
string, reverse its order, display it and 
repeat the process 100 times. Try 
Listing 4 on a TRS-80, using as an input 
string the English alphabet typed three 
times in succession. Basic will require 
133 seconds to complete the task, but 
Pascal finishes the job in 27 seconds. 

"Factroot" and "Reverse" are very 
simple programs, intended only to 
illustrate structure, readability and 
speed. Any Basic programmer can 
produce programs like "Factroot" and 
"Reverse" after minimal introduction 
to Pascal. With a little effort an 
experienced user of Basic should write 
meaningful Pascal software very 
readily. 



Language Characteristics 

Among Pascal's strengths are 
flexible manipulating and structuring 
of data. UCSD Pascal predeclares five 
variables types: integer (whole num- 
bers from -32768 to +32767), real 
(which may have fractional parts), 
character, string and Boolean. Char- 
acter variables compare to one-letter 
string literals in Basic, and strings in 
UCSD Pascal are similar to strings in 
Basic. Boolean variables are logical 
variables; their values may be only true 
or false. 

Most functions and pro- 
cedures native to Basic 
are in Pascal in some 
manner, although usually 
in improved fashion. 

Pascal also permits creation of 
new variable types, often as subranges 
of other types. For example, the 
declaration in line 3 of Listing 1 places 
"Lowlimit," "Highlimit" and "Loop- 
count" within the subrange of integers 
from 1 to 20. Any attempt to assign a 
non-conforming value will cause a 
runtime error. 

A declaration like 

TYPE DAY - (SUNDAY, MONDAY, 
TUESDAY, WEDNESDAY. THURS- 
DAY, FRIDAY, SATURDAY); 

creates a new variable ;ype called 
"Day." A programmer may then de- 
clare variables of the new type, even as 
subranges in variable statements like 

VAR WORKDAY: MONDAY . FRIDAY 

which defines a subrange for "Work- 
day." If the program, otherwise un- 
aware of workers' sensitivities, should 
assign Saturday or Sunday to the 
variable, "Workday," the computer 
would detect the error at once. 



LOWLIMIT! 



END 
> ". HIGHLIMIT* 



END 



18 DEFINT H, L 

29 EP-1E-5 

38 Pl*="»ti«»»»»(M»" P2*«" tt« •»#•« t C t " 

46 CLS: PRINT "FftCTORIRL RND ROOT COMPUTATION " 

W PRINT LINEINPUT "ENTER L0H LIMIT (0<LOW<21> 

60 LOWLIMIT=VRL<LOWLIMIT*> 

70 IF LOWLIMITC1 OR LOWLIMIO20 THEN PRINT "ERROR 

80 PRINT LINEINPUT "ENTER HIGH LIMIT <1<HIGH<21> 

90 HIGHLIMIT«VftL<HIGHLIMIT*> 

100 IF HIGHLIMIT<1 OR HIGHLIMIT>20 THEN PRINT "ERROR 

110 FOR L0OPCOUNT»LOWLIMIT TO HIGHLIMIT 

120 G0SU6 900 

130 GOSUB 1006 

140 PRINT USING Pit; LOWLIMIT; : PRINT USING P2*. RESULT; ROOT 

150 NEXT 

160 END 

900 RESULT-1 

910 FOR IZ-LOOPCOUNT TO 1 STEP-1 

920 RESULT-RESULT* IX 

930 NEXT 

940 RETURN 

1000 ROOT-1 

1010 R00T«(RO0T+RESULT/RO0T>/2 

1020 IF fieS<RESULT/<ROOTC2)-l»EP THEN 1010 

1030 RETURN 



Listing 2 The Basic version ol FACTROOT 
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Pascal, cont'd. 

It is also possible to declare 
variable types as sets or arrays or as 
records, single variables into which a 
programmer may group distinct vari- 
able types. For example, the following 
declarations establish a record type 
"Customer" which contains the cus- 
tomer's account number, his name, his 
account balance, whether he is a 
residential customer, and what appli- 
ances he has purchased: 

TYPE APPLIANCE - (STOVE, DISH- 
WASHER, REFRIGERATOR, 
AIRCONDIT, COMPACTOR); 
TYPE CUSTOMER = 
RECORD 

ACCOUNT: INTEGER; 

NAME: STRING; 

BALANCE: REAL; 

RESIDENTIAL: BOOLEAN; 

PURCHASES: SET OF APPLIANCE 
END; 

Programmers may access individual 
fields by name or manipulate whole 
records in interesting ways, placing 
them into files, arrays, sets or other 
records, creating ever more complex 
and flexible data types. 

The UCSD version cor- 
rects a glaring deficiency 
of standard Pascal. 

Most functions and procedures 
native to Basic are in Pascal in some 
manner, although usually in improved 
fashion. There is even a limited GOTO. 
Omissions of popular features (such as 
default type declarations, automatic 
conversions, an exponentiation oper- 
ator) were deliberate, to serve the need 
of good programming style. Many 
operations, functions and procedures 
in Pascal are new to Basic program- 
mers. Table 1 describes some of the 
UCSD Pascal features. Those marked 
with an asterisk are UCSD extensions, 
not standard in all implementations. 



String handling features comprise 
one important set of UCSD extensions. 
They are more powerful than the 
routines in TRS-80 disk Basic. Users 
may address or alter individual string 
elements in single operations because 
the string is a character array. For 
example, the fifth element of 
"ABCDEFG" may be referenced as 
ST[5], assuming that the variable name 
"ST" were assigned to the string. The 
procedure INSERT allows groups of 
characters to be inserted at any string 
position, without breaking and recon- 
catenating the string, as in Microsoft 
Basic. For instance, the Pascal state- 
ments 

STRING 1: = HELLO. HOW ARE YOU 

TODAY?' 
INSERT (', FRIEND', STRING1, 6) 

will change STRING1 to read, "HELLO, 
FRIEND. HOW ARE YOU TODAY?" 
Other powerful string functions en- 
hance interactive programs. 

The UCSD version corrects a 
glaring deficiency of standard Pascal. 
Initially, Pascal did not support ran- 
dom access of files — a serious 
difficulty for disk users. UCSD Pascal 
includes the procedure SEEK which 
grants direct access to any numbered 
record in a file. For -sequential access 
one may either read one record at a 
time or use the functions BLOCK- 
READ and BLOCKWRITE which trans- 
fer large segments of data to or from 
structured input/output devices (such 
as disks). UCSD enhancements to file 
manipulation and other I/O routines 
make FMG Pascal I/O operations 
versatile and broad, but easy for 
beginners who do not yet require all of 
the sophisticated functions but wish to 
grow into them. 

The SEGMENT PROCEDURE, 
another UCSD extension, provides 
versatile memory allocation. Because 
the system software occupies a large 
block of memory, limited space is 
available for object code generated 



Operation 


Purpose 


DIV 


Integer division operator. 


MOO 


Integer remaindering operator. 


ODD 


Determines if an integer is odd. 


PRED 


Returns predecessor of an argument. 


SUCC 


Returns successor of an argument. 


SIZEOF* 


Returns number of bytes allocated to a 




variable. 


CASE 


Multiple branch "if" statement. 


REPEAT . . UNTIL 


Conditional iterative operation 


WHILE DO 


Conditional iterative operation 


CONCAT* 


Concatenates strings. 


COPY- 


Accesses indexed section of a string. 


DELETE" 


Removes characters from a string. 


GOTOXY* 


Addresses cursor to screen coordinate 




position. 


IORESULT* 


Advises program of error in I/O routine. 


BLOCKREAD* 


Reads blocks of data from a file. 


BLOCKWRITE* 


Writes blocks of data to a file. 


SEEK* 


Allows random access to a file. 


SEGMENT PROCEDURE- 


Retains procedure on disk to be overlaid 




when called. 


EXTERNAL* 


Declares procedure to be linked from a 




library. ' denotes UCSD extension 



from source text. By using SEGMENT 
PROCEDURES the programmer may 
elect automatic reduction of a program 
into units that remain in secondary 
memory (e.g., disk) until they are 
needed. When the program requires 
them, the system loads them into RAM 
where they remain until overwritten by 
another segment procedure. Injudi- 

The linker provides a 
facility whereby a Pascal 
program and a relocat- 
able machine language 
program may be tied 
together. 

cious use of this feature will sub- 
stantially decrease program speed. 

System Operations and Support 

Pascal for TRS-80 loads directly 
into RAM from a system disk, writing 
over the memory area otherwise used 
by TRSDOS. Consequently, programs 
may not use TRSDOS routines or 
vectors. Many of the Level II ROM 
routines are unusable, as they employ 
jumps to vectors outside the ROM. 

Once loaded, UCSD Pascal pre- 
sents a friendly welcoming message 
and requests a command. A user may 
select from several options: call the 
filer program, which itself presents a 
number of file manipulation and exam- 
ination options; execute a program; 
run a program on which the user has 
been working; or invoke the editor, 
compiler, linker or assembler. 

Programmers use the editor to 
produce any source code. It is an 
adequate utility with versatile editing 
instructions. Commands to insert, 
delete or change text, copy from one 
section of source to another, indent 
automatically, and justify right or left 
margins (but not both at once) make 
the editor useful and flexible. Addi- 
tional advanced commands enhance it 



PR0GRRH REVERSE; 
VRR LEN, L00P1, L0OP2: INTEGER; 
TRRGET, NEWTHRGET STRING; 
CH: CHRR; 
BEGIN 

HRITELN( 'ENTER YOUR TRRGET STRING. '); 
REROLNCTRRGET); 
NEUTRRGET : "TRRGET; 
LEN :»LENGTH< TRRGET); 
FOR L0OP1 =1 TO iee DO 
BEGIN 

FOR L00P2:=LEN DOMNTO 1 DO 
BEGIN 

CH:»TRRGET[LOOP2 3; 
NEMTRRGETr. LEN-L00P2+1 1 : =CH; 
END; <*L00P2*> 
TARGET -NEWTRRGET; 
MRITELN<TRRGET> 
END <*L00P1*> 
END <*REVERSE»> 



A Selection of UCSD Pascal Operations 
Table 1 



Listing 3 
REVERSE, a Pascal program to manipulate an 
input string. 
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The 
Apple Stood 

Your Apple ll™software 

market from The 

Software Exchange 

6 South St.. Millord. NH 03055 

I: Toll Free 1 -800-258- 1790, 



FORTE' 

from SOFTAPE. 

16K $19.95 

APPILOT EDU DISK 

from MUSE. 

Disk, 32K $49.95 

U DRAW I 

from MUSE. 

Cassette, 16K $17.95 

U DRAWN 

from MUSE. 

Disk, 32K $39.95 

MICRO INFORMATION SYSTEM 

from MUSE. 

Disk, 48K $99.95 

VISICALC 

from MUSE. 

Disk. 32K $99.95 

SUPER-TEXT 

from MUSE. 

Disk. 48K $99.95 

THREE MILE ISLAND 

from MUSE. 

Disk, 48K $39.95 

BRIDGE CHALLENGER 

from Personal Software. 

Tape. 16K $14.95 

MAZE GAME 

from MUSE. 

Cassette. 16K $12.95 



35ftSia 




The source of games and personal 
Level II applications for the TRS-80*. 
Typing in our programs is the FUN 
way to learn BASIC. 

$18. (12 issues. 1 year) 

Available with the programs on cassette. 

$38 (6 issues) 



V 



GLOBAL WAR 

from MUSE 

Cassette, 32K $17.95 

GAME PLAYING WITH BASIC 

Tape 1, from HAYDEN. 

Cassette $9 95 

GAME PLAYING WITH BASIC 

Tape 2, from HAYDEN. 

Cassette $9.95 

GAME PLAYING WITH BASIC 

Tape 3, from HAYDEN 

Cassette $9.95 

GENERAL MATHEMATICS 1 

from HAYDEN. 

Cassette $14 95 

ENGINEERING MATHEMATICS1 

from HAYDEN. 

Cassette $14 95 

THE BASIC HANDBOOK 

by David Lien $14.95 

plus $1.00 shipping and handling. 

LITTLE BOOK OF BASIC STYLE 

by John Nevison. $5.95 

plus $1 .00 shipping and handling. 

TANK WAR 

from MUSE. 

Cassette, 8K $1 7.95 

ELECTRIC CRAYON 

from MUSE. 

Cassette, 8K $17.95 



fippteSeed 



The first magazine for the Apple 
II" that stresses the use of the com- 
puter instead of programming. Major 
games, practical applications. Now 
there is a SoftSide for the Apple**! 

$15. (12 issues. 1 year) 



CIRCLE 180 ON READER SERVICE CARD 
FEBRUARY 1960 




SIDESHOWS 

from MUSE. 

Cassette, 8K $12.95 

UNCLE SAM'S JIGSAW 

from MUSE. 

Cassette. Applesoft. 32K $1295 

DR. MEMORY 

from MUSE. 

Disk, 32K $49.95 

THE MUSIC BOX 

from MUSE. 

Cassette, 8K $12.95 

ESCAPE 

from MUSE. 

Cassette, 8K $12.95 

APPENI TEXT EDITOR 

from MUSE. 

Cassette. 8K $17.95 

BASEBALL 

from MUSE. 

Cassette, 16K, Applesoft $14.95 

SARGON II 

from Hayden. 

Cassette. 24 K $29.95 

FASTGAMMON 

from Quality Software 

Cassette, 16K $19.95 

APPLE 21 

from SofTape. 

Apple II, Integer. 24K $9.95 

APPLETALKER 

from SofTape. 

Apple II. Applesoft. 16K . . . . $15.95 



Scott Adams' 
Adventures. Machine 
Language programs on cassette 
for 24K Apple ll'br Apple ll'Plus. 
Includes instructions for trans- 
ferring to 48K Apple Disk. 





PRGE/BD 



The magazine for the serious 
TRS-80* programmer. Programming 
method, reviews, utility programs 
and hardware projects for Level II and 
disk users. 

$15- (6 issues. 1 year) 



'TRS-80 is a registered trademark of Radio Shack 
and Tandy Corporation. * 'The Apple II and Apple 
II- Plus are registered trademarks of the Apple 
Computer Company. 
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Pascal, cont'd. . . 

further. The absence of tab control in 
the TRS-80 version makes for slow 
columnization, especially of assembly 
language programs. 

The compiler program translates 
source code from the editor into 
executable object code, called P-code. 
Source code may even contain refer- 
ences to other Pascal source pro- 
grams, in which case the compiler will 
search for the necessary files and 
compile them into the object code, 
affording users a powerful facility to 
build libraries of external procedures 
and functions. Since variables within a 
program may be private to that pro- 
gram, added modules may use iden- 
tical private label names without harm 
to the final compiled result. 

During compilation the system 
displays its progress on the video 
screen. Upon discovery of a syntax 
error, the compiler will stop, describe 
the error, give its location and prompt 
the user to select one of three options: 
continued compilation (to find more 
errors); termination of compilation and 
return to the system control level; or 
transfer to the editor to repair the 
offending instruction. 

Assuming a correct compilation, 
the user may run the program or invoke 
the linker which will add to the object 
code additional object code routines 
which the programmer has declared as 
external. Some of the Pascal I/O 
routines are not in the main system, but 
are stored in a system library. The 
linker finds the required routines and 
copies them into the otherwise incom- 
plete code. Also, the linker permits a 
user to copy his own relocatable 
assembly language or Pascal utility 
programs into Pascal software as 
functions or procedures. In other 
words, the linker provides a facility 
whereby a Pascal program and a 
relocatable assembled programs may, 
likewise, be linked together. 

The UCSD macro assembler is far 
better than Radio Shack's first Editor/ 
Assembler, but not as powerful as 
Microsoft's Macro-80. Still, it provides 
a system which assembles relocatable 
machine code to be linked into Pascal 
programs, to run alone, or to be linked 
into other machine language software. 
More significantly, it is the only 
assembler that will work with the FMG 
UCSD Pascal package. Typically, 
assembled machine language pro- 
grams or subroutines run much faster 
than comparable Pascal programs. 

Some Fine Points and Some Problems 

We have been discussing Pascal 
as a compiled language. Strictly 
speaking, UCSD Pascal for the TRS-80 
is also an interpreted language. The 
Pascal compiler translates source 
code into a kind of object code called 



P-code which is not machine execut- 
able as is an assembly of Z-80 mne- 
monics. An assembly is directly run- 
nable on a microprocessor. P-code is a 
special low level translation of Pascal 
source code, and is substantially the 
same either for a TRS-80 or a PDP-1 1 . 
Its mnemonics look like assembly 
language and its object code looks like 
hexadecimal object code, but it needs 
further interpretation. 

Since the Pascal P-code cannot 
run on a Z-80 microprocessor, the 
Pascal pseudo-machine prepares a 
final translation each time the com- 
piled program is run. The pseudo- 
machine is a program in Pascal that 
emulates hardware when it reads 
individual P-code instructions. It then 
translates the P-code into Z-80 instruc- 
tions and passes those to the micro- 
processor for execution. 

The pseudo-machine implemen- 
tation of UCSD Pascal assures stand- 
ardization and system portability. To 
prepare new releases, all the imple- 
mentor needs to vary is the pseudo- 
machine interpreter so that it will 
generate output in the microproces- 
sor's native language. The library, 
compiler, linker and various other 
system components stay largely un- 
changed^ 

The Pascal system is not 
presently able to access 
TRSDOS files. 

On the other hand, UCSD pseudo- 
machine implementation creates a 
serious problem for the user. A Z-80 
treats P-code as meaningless instruc- 
tions. Consequently, the TRS-80 user 
is unable to convert compiled Pascal 
programs into TRSDOS command 
files to be invoked from the command 
mode of the disk operating system. 
Although a minor problem for pro- 
grammers dedicated to Pascal alone, 
those who work in several languages 
may find it inconvenient to be unable to 
access Pascal routines in those lan- 
guages. 

Moreover, since all Pascal files are 
placed on disk according to rules 
established in the pseudo-machine, 
the user may access data files and even 
true machine code files produced with 
the UCSD assembler only within the 
Pascal system. Conversely, the Pascal 
system is not presently able to access 
TRSDOS files. 

UCSD Pascal presents some addi- 
tional difficulties. The system lacks 
facility for double precision arithme- 
tic. Don French, who implemented the 
FMG Pascal release, suggests that a 
revision is coming soon that will use 
binary coded decimal routines to 
permit multiple precision and long 
integers. FMG deliberately omitted 
turtlegraphics from the system. Turtle- 



10 CLERR 500 

20 DEFSTR T 

30 PRINT "ENTER YOUR TARGET STRING. 

40 LINEINPUT TRRGT 

50 FOR I1X-1 TO 100 

60 T2RRGT-"" 

70 FOR l2Z=LEN<TfiRGT> TO 1 STEP-1 

80 T2ftRGT»T2ftRGT+MD*<TRRGT, I2Z, 1) 

90 NEXT 12*/. 

100 TflRGT=T2RRCT 

110 PRINT TflRGT 

120 NEXT 112 



Listing 4 
The Basic version of REVERSE 

graphics is a line drawing facility, for 
which the TRS-80 graphics are much 
too coarse. Substitute graphics in- 
structions would be a constructive 
addition to future revisions of FMG 
UCSD Pascal. 

A committee prepared the users' 
manual, published for UCSD by its 
Institute for Information Systems. 
Organized poorly, it mercilessly sends 
the reader leapfrogging through text to 
refine comprehension of any given 
point. We can forgive the style, but too 
much expense was spared on typo- 
graphy and layout. Although the 
authors did not intend the manual as a 
tutorial, it does not serve well as a 
reference, even to its own operating 
system. 

The FMG release of UCSD Pascal 
for TRS-80 requires an environment 
with 48K of user RAM and two disk 
drives. It is an excellent language 
package, a fine means to learn struc- 
tured programming and a versatile 
system for the hobbyist, business user 
or home computer enthusiast Its 
minor deficiencies are overwhelmed 
by its strengths and, consequently 
should become a microcomputer 
standard. O 

The FMG/UCSD Pascal system is 
available from FMG Corporation, PO 
Box 16020 - B9, Fort Worth, TX 76133 
for $150 (or $100 without Macro 
Assembler, linker and library). 
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TRS-80 COMPATABLE 
DISK DRIVES 

The largest 

family of 
disk drives 

from the 
largest 

supplier, 

drives come 

complete 

with power 

supply and 

cabinet 



TF-1 Pertec FD200. 40 track 

TF-3 Shugart SA400. same as tandy 

B51 MPI. B51 40 track 

TDF-1 Dual Head. 35 track 






$382 
$389 
$379 
$499 



220 versions available 

NOW! SUPER & MAX 
DISKS 

SUPER: 77 tracks on one 5V 4 diskette that's 197K of storage 
with New DOS- $695 

MAXI DISK I 10 Megabyte hard disk with 5 fixed 5 removable 
with controller $6299 

MAXI DISK II 9 8 Megabyte on one disk using Winchester 

technology Unit is sealed in unit for added 

protection $5349 



SOFTWARE 



NEW DOS* over 200 modifications, corrections 
and enhancements to TRS DOS Includes utilities 

35 Track NEWDOS- $99 

40 track NEWDOS- $110 

AJA Word Processor $75 

AJA Business Program $250 

Racet Infinite Basic $49.95 

Disk Drive Alignment Program $109 

Radex Data Base $99.95 

Electric Pencil $150 



LINE PRINTERS 



V 



BASE 2 
ONLY 

$599. 




The new base 2 printer, prints 60 Ipm, 80 & 132 col formats It 
has tractor feed w/RS232. IEEE & centronic interface 

DP800 ANADEX 80 column. 112 cps $950 

LP779 Centronics 779 $1099 

LP730 Centronics 730 $950 

LP700 Centronics 700 $1495 

LP701 Centronics 701 $1 759 

LP 702 Centronics 702 $ 1 895 

Spin-1 Spinwriter $2499 

MOD II DISK DRIVES NOW AVAILABLE 

* ^ D -°NDRIVEFOR 
ANY MICROCOMPUTER 

DOES NOT .NCLUDE POWE 7i £ cVbJnTt 

Pertec FD200 ... ^""INET 

Pertec FD250 (dual head) $282 I 

Shugart SA400 (unused) . $349 

Shugart SA800 .... $286 J 

MPIB51 ..... $479 

MPI B52 (dual head) $279 

$349] 

NEW PRODUCTS 



Small Systems Interface (RS232) $49.95 

Expansion Interface W32K $499.95 

AC Line Filter $18.95 

AC Isolater (6 connecters) $45.95 

Modern $179.95 

Verbatim 5'j Diskettes $3.39 

16 Key Pad Kit (no soldering) $68 

16K Memory (Keyboard) $89 

16K Expansion (Interface) i $86 



ALL PRICES CASH DISCOUNTED • FREIGHT FOB/FACTORY 



an 



/MICROCOMPUTER 

TECHNOLOGY 
INCORPORATED 



3304 West MacArthur 

Santa Ana, CA 92704 

(714) 979-9923 




7310 E. Princeton Ave. 
Denver, CO 80222 
(303) 758-7275 



pparat, Inc. 
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Micro Composer 

from 
Micro Music, Inc. 



David H.Ahl 



Introduction 

Micro Composer is a music 
system for the Apple II. The package 
contains a hardware music card, 
software on either cassette or disk, 
and an instruction manual. Suggest- 
ed retail price is $220. Further 
information is available from the 
manufacturer, Micro Music, Inc., 309 
W. Beaufort, Normal, IL 61761. 
Telephone (309) 452-6991 . 

Micro composer allows one to 
compose and play up to four simul- 
taneous voices; program the pitch, 
rhythm and timbre of the music; 
specify one of seven pre-program- 
med tone colors for each voice or 
make up a new one; save and recover 
music from either tape or disk; and 
play music using the built-in amplifi- 
er circuit. The music being played or 
text material may be displayed on the 
screen during playback. 

Using the System 

When Micro Composer arrived, it 
was barely out of the postman's 
hands before we ripped open the 
box, plugged it in to our Apple and 
fired it up. In the front of the manual 
are two pages, one for installation of 
Micro Composer and the other 
describing how to run a demonstra- 
tion. Hence, one can play music 
immediately without having to wade 
through pages of instructions and 
hours of tedious music entry. The 
first instruction page carries a large 
notice, "Before you do anything, 
please read this!!!!" This would be a 
good policy for any manufacturer to 
follow, but is especially welcome 
with a product such as this. 

The manual is 28 pages long; the 
first 7 pages are devoted to several 
examples of playing, editing and 
composing music and are designed 
for the user to enter on his or her 




Micro Composer comes with a card for the Apple, software on 
cassette or disk and loose leaf instruction manual. 



system. The next 12 pages describe 
usage of the system, its functions 
and commands. The remaining 8 
pages contain a technical description 
of the system. The manual is printed 
on heavy card stock and is bound in a 
three-ring binder hence it should last 
through many hours of flipping 
pages to find out how this or that is 
done. 

Music is entered using a simple 
alphanumeric coding scheme. It 
requires three characters to define 
most notes— duration, note and oc- 
tave. Some examples of note coding 
are: 

ER Eighth Rest 

QF3 Quarter note F in 3rd 

octave 
HC4 Half note C in 4th octave 
SBF3 Sixteenth note B-flat in 3rd 

octave 
.HG1 Dotted half note G in 1st 

octave 

Music Composer has a range of 
four octaves. Middle C is the first 
note in Octave 3. Note durations 
range from a thirty-second note to a 
whole note. Any note may be dotted 
except a sixteenth or thirty-second. 

The first music we chose to enter 
was a simple piano arrangement of 
"The Stars and Stripes Forever." We 
were going along famously until the 
fourth measure which had a whole 
note tied to a half note in the next 



measure. Unfortunately, Micro Com- 
poser does not allow for tied notes. 
End of a measure— end of a note. 
Hence, the user is faced with either 
putting in a second note (untied) or a 
rest. In this piece, at least, rests 
tended to sound better. 

The next piece we chose to enter 
was the "Triumphal March" from 
Aida. Here we ran into trouble in the 
second measure. It had a triplet, 
another feature not provided for in 
Micro Composer. We don't see any 
easy way around this problem; we 
tried an eighth and two sixteenth 
notes and also three sixteenth notes 
and a rest but neither was really 
satisfactory. 

As mentioned earlier, Micro Com- 
poser allows for up to four poly- 
phonic voices. In a multiple voice 
composition, all voices must be 
entered at once. In other words, one 
enters a chord. We had grown 
accustomed to entering one entire 
voice, or part, on the ALF system and 
then adding additional parts, one at 
a time. Perhaps it is habit, but we 
find the ALF approach more "natur- 
al" and easier to use. On the other 
hand, with Micro Composer, one 
hears an entire chord and can make 
changes immediately. 

However, making changes (edit- 
ing) is not one of the strong points of 
the system. Although the manual 
thoroughly describes the editing 
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Micro Music, cont'd. . . 

process, we found it awkward and 
time-consuming to use. To edit a 
note, one must start at the beginning 
of the piece, display the notes on the 
screen and "walk" through the piece 
until the error is found. Edit mode is 
then entered. After typing in the 
value of the erroneous "set" (or 
chord), new pitch codes must then 
be entered for every note in that set. 
In a four-voice composition, for 
example, to change or correct one 
erroneous note would require a 
minimum of 17 keystrokes and 
possibly many more. Another limita- 
tion of the editor is the inability to 
add a note or notes that might have 
been overlooked earlier in the entry 
process. Once, having entered a 
fairly long piece, we found, much to 
our dismay, that two measures 
toward the beginning were identical 
and we had only entered one of them. 
Micro Composer unfortunately would 
not let us insert the missing notes. 
Two hours of music entry down the 
drain. From then on we become 
somewhat paranoid about double 
and triple checking every entry before 
pressing return. 

Another difference between Micro 
Composer and the ALF system is the 
treatment of the key signature and 
accidentals. With the ALF system, if 
a piece is in the key of E flat (3 flats), 
one enters 3F and the system 
automatically assigns a flat to the 
required notes. Also, an accidental 
assigned to one note in a measure 
automatically applies to other of the 
same note until the end of the 
measure. In the Micro Composer 
system, every note that is a sharp or 
flat must be specified separately. 
The key signature is not even 
specified. Also, accidentals do not 
carry over to other notes in the 
measure. This approach may be 
acceptable, and even desirable, when 
learning to read music. On the other 
hand, if one is not learning, this 
method is very time-consuming 
when entering music, for example, in 
the key of E major (4 sharps) or B flat 
minor (5 flats). 

Playing Music 

Micro Composer has a timbre 
command through which any one of 
seven timbres may be assigned to 
any voice. Timbres include: 

1. Low string sound (bass voice 
only) 

2. Wind-flute sound 

3. Horn-brass sound 

4. Bassoon-oboe sound 

5. Clarinet choir sound 



2 3 COMPOSING 

2 3 1 Let's see how to enter a single melody into the computer 

This is the motive from the Bach Two- Part Invention in F major 
Vivace Con Allegrezza 




6. Electronic organ sound 

7. Funky oboe 

It's probably personal preference, 
but we found ourselves coming back 
to timbres 3, 4 and 5 most often. 
After setting tempo with a paddle, 
one may then elect to play or 
display-and-play. The display mode 
uses Apple high resolution graphics 
and displays all the notes being 
played on the bass and treble staffs. 
The notes progress from right to left 
across the screen. Although we have 
not used it with children learning 
music, this would appear to be a 
valuable feature. Unfortunately, mu- 
sic played in the display mode tends 
to sound somewhat staccato since 
with the appearance of each new 
note the computer must interrupt the 
note generation to refresh the dis- 
play. In general, this is not a serious 
flaw although we don't advise play- 
ing music which has sixteenth or 
thirty-second notes in one voice 
against whole notes in the other 
voices— in the display mode the 
entire piece would sound like it 
consisted of the shorter notes. 

The amplifier circuit on the board 
provides adequate volume for most 
rooms. However, if you're looking to 
use the system in an auditorium or 
noisy environment, you'll want to 
feed it through an external amplifier. 
The output signal is monophonic, a 
curious anachronism in a modern 
computer music synthesis system. 
We're not sure whether a second 
board could be added for stereo, but 
it doesn't seem so. 

In summary 

As technology rockets ahead, so 
do people's expectations. In the case 
of music synthesis systems, Hal 
Chamberlin's Micro Composer would 
have been hailed as a breakthrough 
just 18 months ago compared with 
the Solid State Music, Newtech, 
Software Technology and similar 
boards. However, Phil Tubb's ALF 
board for the Apple set some high 
standards in ease of music entry, 
stereo output and overall flexibility, 
if not in documentation (although we 
understand that a new ALF manual is 
due out shortly). 



"VOICES 1 (Ftl Set up the COMPOSER tor 

lust 1 voice 

"COMPOSE »B (R) Now. we need to tell the 

computer we want to compose 
Enter the Compose command 
The 0" means start 
a new music file 

••"Note follow each pitch entei>-ri with a (H( •••• 



Enter an Eighth Rest 

in set 1 of voice 1 

That is what '*! 1" means 

Enter an Eighth note F 
in the 3rd octav * in set 2 
of voice 1 Watch the 
notes appear on the screen' 
And hear the pitch' 

And. we continue on emuring 
in each note We jlway& 
enter the rhythm, the pitch, 
and the octave, in that order 

II you type a wrong couc. the 
computer will beep, then retype 
the music note 

We have finished orie rrMMSurc 
A SixMI 



4 1? EF3 

5 1>EC4 

6 1'EF3 

7 1» EF4 

8 1> SE4 

9 1 > SD4 

10 1? SC4 

11 l'SD4 

12 1»SC4 

13 WSBF3 



14 1' SA3 

15 I? SBF3 

16 1' SA3 

17 17 SG3 

18 1' HF3 

19:17 MR) 



There is one more letter here 
We need a B Flat So we 
use F tor flat If we need 
a sharp, we would type S. 



Put a dot before the rhythm 

to make a dotled value 1 

An asterisk "'" tells the computer to stop 

composing and return to the 

command mode (remember, you 

must press the shift 

key to get the asterisk I 



77METER OF BEATS ' 3 (R) 
BEAT ' 4 (R) 



Let s set the Meter 



Example from the instruction manual of entering 
three measures of music. 

The key advantages of Micro 
Composer are good documentation, 
simultaneous play and display of 
music on two staffs, four voices on 
one board, no need for an external 
amplifier and a music entry proce- 
dure that may be helpful in learning 
about music (depending upon one's 
teaching philosophy). The disadvan- 
tages are a cumbersome editing 
process, awkward treatment of key 
signature and accidentals and an 
inability to handle certain musical 
constructions, notably tied notes 
and triplets. 

Is Micro Composer for you? Every 
Apple needs music and this is 
certainly one way to get it. D 
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Bringing Music t 

■ I Reliable copying of TRS-80 tapes 



LET MICRO MUSIC TURN YOUR 
APPLE II INTOA 
FAMILY MUSIC CENTER! 
. Sing along 
. Compose 
. Play 
. Learn from Specialists 




<*i 
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VISIT THE APPLE DEALER NEAREST YOU 
AND ASK FOR A DEMONSTRATION OF 
MMI'S MUSIC COMPOSER ™ 
The MUSIC COMPOSER is an APPLE II® 

compatible, low-cost music system designed by 
the folks at MMI. Our music software was 
designed by leading experts in music education. 
A simple step by step instruction manual leads 
you through entering, displaying, editing, and 
playing music with up to four voices — soprano, 
alto, tenor, and bass. You can change the sound 
of each voice to reed, brass, string, or organ 
sounds and you can even color your own music 
sounds! 

HAVE FUNI THE MUSIC COMPOSER comes 
complete with an instruction manual, software 
disk or cassette— in either Integer or Applesoft 
ROM BASIC, and the MICRO MUSIC OAC music 
card. Just plug the MICRO MUSIC DAC Into the 
APPLE extension slot and connect the audio 
cable to a speaker. 

Suggested retail price S220. 

Ask your local dealer for information on MMI 
music software products, or contact: 



tjN/LjvL. 




Micro Music inc ( 309 1 452 699 1 

30* Beaufort, University Plaza, Normal, IL 617*1 



Data Dubber 

Rod Hallen 



Many cassette tapes which have 
been generated by some other com- 
puter, and some that are created 
commercially by a tape duplication 
service, are very difficult to load. This 
problem is usually caused by a differ- 
ence in head alignment between 
recorders and/or by distortion which 
results from the tape duplication 
process. Techniques which are satis- 
factory for copying musical recordings 
are less than adequate when dealing 
with data tapes. 

While this trouble is not restricted 
to the TRS-80, the recording-playback 
technique utilized by Radio Shack is 
particularly prone to such problems. 
Most often you can finally get a good 
load after a lot of fiddling with volume 
and tone controls. Once a successful 
load has been accomplished, dumping 
the program to another tape will 
usually result in a good copy. 

What about system tapes which 
you cannot dump? A method of re- 
generation is needed which will create 
a good copy from an unusable dis- 
torted one. Regeneration has been 
used in the telegraph industry for a 
great many years. 

The Data Dubber, from The Pe- 
ripheral People, is just such a re- 
generator. It reads distorted noisy data 
signals and creates a noise and 
distortion free copy that is at the 
proper level for use by the TRS-80. 

It can be used in two different 
ways. Placed between the recorder 
and the TRS-80 it will, in most cases, 
deliver usable data signals to the 
TRS-80. Placed between two re- 
corders, it will allow you to make 
copies which should be as good as 
those you get when you CSAVE a 
program. This is particularly beneficial 
with programs that do not lend them- 
selves to duplication in any other way. 

Application 

The Data Dubber has a self- 
contained battery which should last 

Rod Hallen, PO Box 73. Tombstone. AZ 85638 




about 90 days in normal use. There are 
no switches or controls on the unit. 
The cover sports an LED indicator, and 
two plug-ended cords and a jack adorn 
one end. When used between a re- 
corder and the computer, the unit is in 
series with the ear phone lead. The 
most important part of the electrical 
circuitry is the Threshold Detector. 
Once the recorder playback volume 
has been set correctly with the use of 
the LED indicator, the data out to the 
TRS-80 will remain constant even if the 
volume control is increased farther. 

Operation of the unit is identical 
when used between two recorders 
except that the output of the Data 
Dubber is fed into the AUX input for 
recording. Tapes which are copied in 
this manner should load easily from 
then on with or without the use of the 
Data Dubber. 

Conclusion 

In the past few weeks I have made 
three tapes usable which were pre- 
viously super sensitive to volume 
setting. I have also duplicated all of my 
system tapes to safeguard my invest- 
ment in the event a tape should 
become damaged and unreadable for 
any reason. 

One note of warning is in order. 
The Data Dubber will only resurrect 
tapes which contain all of the neces- 
sary data no matter how distorted. If 
even one data or sync bit is missing 
from the tape, then there is no way to 
recover the program. In that case you 
will have to go back to the source for 
another copy. 

The Data Dubber is available from 
the Peripheral People, at P.O. Box 524, 
Mercer Island, WA 98040 for $40 
postage paid. I have found it to be a 
usable addition to my TRS-80 and 
believe that most other users will 
also. o 
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__^^^H SELECTOR III - C2 ^^B 
THE INFORMATION MANAGEMENT SYSTEM 

Includes these Application Sub-Programs. . . 

Sales Activity, Inventory, Payables, Receivables, Check/Expense Register, 
Library Functions, Mailing Labels, Appointments, Client/Patient Records 



MICRO-AP MICRO-AP MICRO-AP MICRO- 
|-AP MICRO-AP MICRO-AP MICRO-AP MICR 
,P MICRO-AP MICRO-AP MICRO-AP MICRO- 
;RO-AP MICRO-AP MICRO-AP MICRO-AP MICR 
O-AP MICRO-AP MICRO-AP MICRO-AP MICRO- 
.JICRO-AP MICRO-AP MICRO-AP MICRO-AP MICR 
jCRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO- 
,.P MICRO-AP MICRO-AP MICRO-AP MICRO-AP MICR 
MICRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO- 
AP MICRQ -AP MICRO-AP MICRO-AP MICRO-AP MICR 
MICRO-AP MICRO-AP MICRO-AP MICRO- 
\P MICRO-AP MICRO-AP MICRO-AP MICR 
MICRO-AP MICRO-AP MICRO-AP MICRO- 
\P MICRO-AP MICRO-AP MICRO-AP MICR 
MICRO-AP MICRO-AP MICRO-AP MICRO- 
\P MICRO-AP MICRO-AP MICRO-AP MICR 



-ap micro-ap m 
;ro-ap micro-af 
-ap micro-ap m 
:ro-ap micro-af 
-ap micro-ap m 
:ro-ap micro-af 
-ap micro-ap m 
ro-ap micro-af 




NEW RELEASE 

GLector — General Ledger Option 
The industry's most powerful, flexible and 
informative QL system is now available from 
Micro-Ap. Look at these features . . . 

* Transaction entries by type 

* Trial Balance upon entry. 

* No need to memorize account num- 
bers or whether credited or debited. 

* Full 24 month data storage. 

* Update any account balance in cur- 
rent fiscal year with automatic month 
recomputation. 

* Balance Sheet as of any month with 
current and last year balances. 

* P & L tor any period of current fiscal 
year . . . any time . . . contains cur- 
rent and last year periods, % of sales, 
YTD. and % change tor period. 

* Automatic year-end closing. 

* Menu selected . . . instant ISAM re- 
trievals. 

* Introductory price . . . $250 

* Requires SELECTOR III-C2. 



-AP MICRO-AP Ml 
RO-AP MICRO-AP F 
1-AP MICRO-AP Ml 
RO-AP MICRO-AP F 
VAP MICRO-AP Ml 
RO-AP MICRO-AP F 
)-AP MICRO-AP Ml 
.RO-AP MICRO-AP F 



-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP Ml 

iRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP » 

-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP Ml 

RO-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP MICRO-AP ft 



RANDOM, MULTI-KEY RECORD RETRIEVAL under CP/M, CDOS, IMDOS, ADOS 



SELECTOR III-C2 ALLOWS INSTANT 
RECALL OF ANY RECORD USING ANY IN- 
FORMATION ITEM IN THE RECORD. That 
statement deserves re-reading, because 
that ability makes SELECTOR IM-C2 the 
most powerful information management 
system in microcomputers today! 



The three major activities in business 
computing are.. .Word Processing, Finan- 
cial Accounting, and the storing, pro- 
cessing, and reporting of information. 
The latter is where SELECTOR III-C2 
shines and fills the professional and per- 
sonal need. 



The system represents the state of the 
art using Micro-Ap's unique record index- 
ing, query, and report writing methods. 
It's 'menu driven' and uses screen 
displays with all the instructions and er- 
ror sensing that allow the novice to 
quickly learn the system and accomplish 
his tasks. 



With SELECTOR III-C2 you... 

• define a record format assigning up to 
24 fields as key' fields -meaning that 
records can be instantly recalled by 
name, date, quantity, ZIP Code, or 
whatever. 

• create a file and begin entering edited 
and verified data immediately. 

• browse through your file in key field 
order, making whatever changes or dele- 
tions needed. 

• select collections of records meeting 
your exact requirements and arranged in 
the order wanted. 

• create a unique report that contains 
the precise information you need - with 
numerical totals, averages, maxima, and 
minima -for any period of time and sum- 
marized by name, date. ..or by any item 
you want. 

• bring an application on-line in hours in- 
stead of months. 
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SELECTOR HI-C2 is a 'turn-key' system 
that can manage most applications as is. 
It includes source-code and pre-defined 
record formats and sub-programs to per- 
form the tasks listed at top of page. Pro- 
grammers can easily add other sub- 
programs - using the system's powerful 
utilities - to perform virtually any special 
computation or function required. 

The system runs under CBASIC Veis. 2, 
and is piiced at $345. It's available in a 
variety of CP/M, disk formats including 
Dynabyte; North Star; Micropolis; TRS- 
80; Helios II; Heathkit; iCOM; Altaii; Im- 
sai; Cromemco; and other s. 



May be seen at 
COMPUTER STORES WORLDWiOE 
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ir nor locally stocked, order irom . . . 

LIFEBOAT ASSOCIATES 

2248 Broadway, Suite 34 
New York. NY 10024 e (212) 580-0082 
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Word Processor Pac 
For The Sorcerer 



Philip L.Wilkinson 



What other microcomputer has 
plug in ROM pacs that fit in the side 
as easily as "Johnny Cash's Greatest 
Hits" fits in my 8-track? The ability to 
use ROM pacs, together with the 
great keyboard, were two of the 
reasons I bought my Sorcerer in the 
first place, a sullen and frustrated 
refugee from the promises of Com- 
modore and Mickey Mouse key- 
boards. But it took a while to get 
anything else but the Basic pac, and 
weekends would see me hanging 
around the Byte shop, looking at the 
books and magazines. 

"Anything new from Exidy?" 

"I heard a rumor about a new disk 
system that fits on the parallel port." 

"Really? What about ROM pacs?" 

"Give me the money and I'll order 
the Assembler pac for you. Might 
take a while but I'm sure we'll get it 
eventually." 

"Thanks but no thanks." 

Finally I found a store called 
Nycom, on El Camino Real, in the 
heart of Silicon Valley. Nycom got to 
me at the right time, after a week of 
blow ups, brown outs and keyboard 
pounding with a word processor 
written in Basic. The third time it 
blew up with four pages of text 
laboriously entered but unrecorded, I 
nearly trashed the whole system. I 
bought the ROM pac before asking 
the price, and then spent three days 
with Nycom and a sprinkling of Exidy 
personnel on the telephone trying to 
make it print out with my non-stan- 
dard Selectric terminal. Finally I 
found the right person and, after a 
short driver program worked on the 
second attempt, I felt like I'd found a 
gold mine. 

Philip L. Wilkinson, 755 Pt. San Pedro Rd., 
San Rafael, C A 94901. 



Entering Text 

The processor is a treat to use. 
Screen oriented, one enters text 
without regard for the end of lines. 
The pac automatically rolls over 
words that are too long onto the next 
line. If the word is polysyllabic like 
extracalafragalisticexpialidocious, a 
soft hyphen will break it up and put 
bits onto both lines, thus avoiding a 
huge gap in the first line. Later on, if 
the text gets cut and spliced and the 
word is no longer at the end of the 
line, the hyphen is automatically 
disregarded. Of course, one can vary 
line length at will. Tabs come 
automatically set 10 spaces apart, 
but can easily be changed at the flick 
of a finger. 

It took me about ten lines to 
forget about carriage returns with 
this system. Since my typing is very 
definitely not touch typing, I never 
knew when I was getting near the end 
of the line. I was always too busy 
looking at the keyboard finding the 
next character, which raises a point 
worth mentioning. People like myself 
who hunt and peck and find the 
wrong character are precisely the 
ones who benefit most from a 
processor. What pleasure to throw 
away the white out, and replace it 
with a cursor that goes anywhere on 
the screen, controlled from the 
numeric pad. 

In fact, most commands are 
controlled from the numeric pad. 
There are two modes, called Edit and 
Command modes, and a key on the 
pad flipflops between each mode. 
The top line of the video screen is 
reserved for messages that tell one 
which mode is current, give error 
messages, and report cursor position 
in terms of number of lines from the 



start of text and number of spaces 
across the screen. 

All text is entered in Edit mode. In 
fact, all text is entered on the middle 
line of the screen, with each line 
scrolling upwards on completion. (I 
imagine if I was a touch typist this 
feature might help prevent eyestrain.) 
To access text that is off the screen 
is easy from either mode; with the 
cursor keys in Edit, or with forward 
and backward commands in Com- 
mand mode. 

What happens if you want to 
change a word? Easy. Just type over 
it. Deletions? There is a key for this. 
Insertions? A key for this too. Okay, 
but what about lines and paragraphs, 
doesn't that get tedious letter by 
letter? Very. Go to Command mode 
instead, and either Kill the whole 
text, or Delete as many lines as you 
want to. Good, but what about 
rearranging paragraphs without hav- 
ing to type them all over again? Sure. 
Use the Hold command, Hold the 
paragraph, delete it from text, and 
replace it where you want it. Whether 
text is large or small, the Processor 
Pac always comes through. (Like the 
US Mail in the old days, remember?) 

Some of the Features 

A word about searching capabili- 
ties. I find that I type a number of 
things where a name or phrase is 
liberally sprinkled throughout the 
text like sesame seeds on a hambur- 
ger. I now type a @ sign for these 
occurrences, then use search and 
replace to put in the text I want. One 
can use wild cards also in this 
feature. By this I mean that a period 
can represent any letter. Hence, if I 
wanted to, I could find all the 
occurences of "Bob," "Rob," "Gob," 
"Hob" and "Nob" in my text (if such a 
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NEW PRODUCTS! 

Super Color S-100 Video Kit $99.95 Eli II Adapter Kit $24.50 

Expandable to 256 » 192 htgh resolution color p^, into EH II providing Super EH 
graphics 6847 with all display modes computer bus plus S-100 bus expansion (With Super 
controlled Memory mapped IK RAM expanda 
btetof* S-100DUS1802, 8080, 8085, Z80 etc 

Gremlin Color Video Kit $59.95 

32 x 16 alpha/numerics and graphics, up to 8 
colors with 6847 chip. IK RAM at E000 Plugs 
into Super EN 44 pm bus Not expandable to high 
resolution Graphics 



Plugs into EH II providing Super Elf 44 and 50 pin 
bus plus S-100 bus expansion (With Super Ex- 
pansion) High and low address displays, state 
and mode LED s optional $1800. 

1802 16K Dynamic RAM Kit $149.00 

1802 S-100 expandable to 32K. Hidden refresh 
w clocks up to 4 MHz w no wait states Addl 16K 
RAM S7I.M. 



Quest Super Basic 

Quest the leader in inexpensive 1802 systems 
announces another lust Quest is the firsl com- 
pany worldwide tosh ip a tal sire talk for 1802 
systems A complete function taper taslc by 
Row Censor mdudtng floating point capability 
with scientific notation (number range * 17E"). 
32 bit integer • 2 billion , Multi dim arrays; String 
arrays; String manipulation; Cassette I/O. Save 
and load. Basic. Data and machine language pro- 
grams, and over 75 Statements. Functions and 
Operators 

Easily adaptable on most 1802 systems Re- 
quires 12K RAM minimum tor Basic and user 



programs Cassette version in stock now HOM 
versions coming soon with exchange privilege 
allowing some credit tor cassette version 
Super Ink M Cassette MO 00 

Tom PttkiuM's 1H2 Tim Ink Start* listing 

Tiny Ink Mi how to get the most out of It. 
Never offered before $19 00 

S-100 4-Slot Expansion S •.•» 

Super Monitor VI I Source Listing S1S.N 
Coming Soon: Assembler. Editor. Disassem- 
bler. OA/AO. Super toeaeVMaili. EPROM pro- 




RCA Cosmac Super Elf Computer $106.95 

Compare features before you decide to buy any A 24 key HEX 
other computer There is no other computer on plus leaf, ma 
the market today that has all the desirable bene- 
fits c4 the taper Elt for so little money TheSuper 
Elt is a small single board computer that does 
many Ma things It is an excellent computer for 
training and tor learning programming with its 
machine language and yet it is easily o -pindod 
with aoaltiaaal memory. Fall task. ASCII 



includes 16 HEX keys 



Before you buy another smal computer, see if it 
includes the following features ROM monitor. 
State and Mode displays; Single step. Optional 
address displays; Power Supply. Audio Amplifier 
and Speaker. Fu«y socketed tor allies. Real cost 
of m warranty repairs Ful documentation 
The taper Elt includes a ROM monitor for pro 
gram loading editingandexecution with SINGLE 
STEP tor program oaeoojejtrej which is not in- 
cluded in others at the same once With SINGLE 
STEP you can see the microprocessor chip opera- 
ting with the unique Quest address and data bus 
displays latere, daring and attar executing in- 
structions Also. CPU mode and instruction cycle 
are decoded and displayed on 8 LED indicators 
An RCA 1861 video grapMct chip allows you to 
connect to your own TV with an inexpensive video 
modulator to do graphics and games There is a 
speaker system included for wnting your own 
music or using many music programs already 
written The speaker amplifier may also be used 



tact, monitor select and tingle step Large, on 
board displays provide output and optional Mfk 
and law a lar m There is a 44 pin standard 
connector slot lor PC cards and a 50 pin connec- 
tor slot for the Quest Super Expansion Board 
Power supply and sockets tor all IC s are in- 
cluded m the once plus a deu*ed 127 pg instruc- 
tion manual which now includes over 40 pgs of 
software info including a series of lessons to 
help get you started and a music program and 
graphics target game 

Many schools and universities are using the 
Super Elf as a course of study OEM s use rt lor 
training and research and development 
Remember other computers only otter Super EN 
features at additional cost or not at alt Camp are 
aetata von buy Saaer EN Kit $106*5. High 
address option SI. IS. Low address option 
$9 95 Castem Cabinet with drilled and labelled 
plexiglass Iron! panel $24 95 Expansion Cabinet 
with room lor 4 S-100 boards S41.N. NiCad 
lattery Memory Saver KM SIM. AH kits and 
options also completely assembled and tested 
OueskJeta a 12 page monthly software publica- 
tion for 1802 computer users is available by sub- 
scription tor $12 00 par year 
Tiny Base Cassette $10.00. on ROM $38 00. 
original EH kit board $14.15 1102 software; 
Moews Video Graphics $3.50. Games and Musk 
S3 00. Chip 8 Interpreter $5 SO 



to drive relays tor control purposes 

Super Expansion Board with Cassette Interface S89.9S 

This is truly an astounding value 1 This board has 
been designed to allow yea to decide how you 
want it optioned Tee t aper Expansion leant 
comet wtth 4K ol low power RAM furty address 
able anywhere in 64K with built-in memory pro- 
tect and a cassette I Mot toes Provisions have 
been made for all other options on the same 
board and it tits neatly into the hardwood cabinet 



ngskte the Super Elt The board includes slots 
lor up to 6K of EPROM (2708. 2758. 2716 or Tl 
2716) and is tatty eocketoO EPROM can be used 
for the monitor and Tiny Basic or other purposes 
A IK Super ROM Monitor $19.95 is available as 
an on board option in 2708 EPROM which has 
been preprogrammed with a program loader 
editor and error checking multi tilt cassette 
read/write software, (rekxatible cassette hie) 
another exclusive from Quest It includes register 
save and readout, block move capability and 
video graphics driver with blinking cursor Break 
points can be used with the register save teature 
to isolate program bugs quickly, then follow with 
single step The Super Monitor is written with 



subroutines allowing users to take advantage of 
monitor functions simply by calling them up 
Improvements and revisions are easily done with 
the monitor If you have the taper Expansion 
•ear* and Super Monitor the monitor is up and 
running at the push of a button 
Other on board options include Parallel Input 
and (Mpui Ports with tal ludaaioi They 
atow easy connection ot an ASCII keyboard to the 
input port RS 232 and 20 ma Current Loop tor 
teletype or other device are on board and if you 
need more memory mere are two S-100 slots for 
static RAM or video boards Also a 1K Super 
Monitor version 2 with video driver for tun capa- 
bility display with Tiny Basic and a video interface 
board Parallel 10 Ports $9 85. RS 232 $4 50. 
TTY 20 ma l/F $1 95. S 100 $4.50. A SO pin 
coanocloi tat with ribbon cable is available at 
$15 50 for easy connection between the Super 
HI and the Super fj paaalaa want 
Power Supply KM tor the complete system (see 
Multi-voii Power Supply I 



Same day t kiameat. First kne parts only 
Factory tested Guaranteed money back 
Quafefy IC s and other components at lac 
tory prices 

INTEGRATED CIRCUITS 



P.O. Box 4430 A Santa Clara. CA 95054 
For tail! call only: (408) 988-1640 
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ROCKWELL AIM 65 Computer 

6502 based single board with ful ASCII keyboard 
and 20 column thermal printer 20 char al- 
phanumeric display. ROM monitor, fully expand- 
able $375 00 4K version $450 00 4K Assem- 
bler $85 00. 8K Basic Interpreter $100 00 

Special smal power supply tor AIM 65 assem m 
frame $49 00 Complete AIM 65 in thin briefcase 
with power supply $415 00 Molded plastic 
enclosure to fit AIM 65 plus power supply $47 50 

AIM 65 KIM.VIMSuper Elf 44 pin expansion 
board; 3 female and 1 male bus Board plus 3 
connectors $22 95 

AIM 65 KIM VIM I/O Expansion Kit. 4 parallel 
and 2 senal ports plus 2 internal timers S3I.II. 
PROM programmer lor 2716 $154.00. 



Multi-volt Computer Power Supply 

8v 5 amp. • 18v 5 amp. 5v 1 5 amp. Sv 
5 amp. 12v .5 amp. 12 option *5v. *12v 
are regulated Kit $29 95 Kit with punched frame 
$37 45. $4 00 shipping Woodgraln case 
$10 00. SI 50 shipping 



PROM Eraser 

WW ansa 25 PROMs m 15 minutes Ultra- 
violet, assembled $37 SO 



60 Hz Crystal Time Bate Kit $4.40 

Converts digital clocks from AC line frequency 
to crystal tme base Outstanding accuracy 



79 IC Update Matter Manual $35.00 

Complete IC data selector. 2500 pg master refer- 
ence guide Over 50.000 cross references Free 
update service through 1979 Domestic postage 
S3 50 No foreign orders 



Not a Cheap Clock Kit $14.95 

Includes everything except case 2-PC boards 
6- 50* LED Displays 5314 dock chip, trans- 
former, all components and tun instructions 
Orange displays also avail Same kit w/.nr 
displays. Red only $21.15. Case S1 1.75 



NiCad Battery Fixer/Charger Kit 

Opens shorted cells that won t hold a charge 
and then charges them up. all in one kit w/lutl 
parts and instructions $7 25 



S-100 Computer Boards 

8K Static RAM Kit $135 00 

16K Static RAM Kit 265 00 

24K Static RAM Kit 423 00 

32K Static RAM Kit 475 00 

16K Dynamic RAM Kit 199 00 

32K Dynamic RAM Kit 310 00 

64K Dynamic RAM Kit 470 00 

8K/16K Eprom Kit (less PROMS) $19 00 

Video Interface Kit $129.00 
Motherboard S3* Extender Board $1.99 



Video Modulator Kit $8.95 

Convert your TV set into a high quality monitor 
without affecting normal usage Complete kit 
with lull instructions 



Digitil Temp. Meter Kit $34.00 

Indoor and outdoor Switches back and forth 
Beautiful 50" LED readouts Nothing like it 
available Needs no additional parts for com- 
plete tun operation Will measure 100 to 
• 200 F tenths of a degree, air or liquid 
Beautiful woodgratn case w.TysMf $11.75 



TERMS S5 00min orderUS Funds Calif residents add 6°, 
BankAmencard and Master Charge accepted 
Shipping charges will be added on charge cards 



FREE Send lor your copy ol our NEW 1979 
QUEST CATALOG Include 28c stamp 
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Sorcerer, cont'd . . . 

peculiar notion overwhelmed me), by 
telling Sorcerer to search for ".ob." 

Automatic pagination and titling 
is accomodated easily, by using the 
appropriate command to put the title 
and the first page number required 
on the first line of text. As pages are 
printed, Sorcerer automatically up- 
dates the page number. 

The Y command controls most of 
the print options. The Processor Pac 
accomodates printers on the parallel 
port of the Sorcerer, or the RS232 
port, with drivers for these ports in 
the ROM pac. For example, connect- 
ing a Centronics printer is as trivial 
as plugging it in and setting the baud 
rate to 1200 on the printer. If your 
parallel port printer likes 300 baud, 
that can also be accomodated by 
command within the ROM pac with- 
out having to go to the monitor. Any 
300 or 1200 baud printer that doesn't 
need handshaking will mate with the 
RS232 port and run with the driver 
program in the ROM pac. Just in 
case you have an old 110 baud 
neanderthal, or a Select ric that needs 
itsown driver program, Exidy thought- 
fully programmed the pac with the 
jump address of the printer driver in 
RAM at 7E7 and 7E8. By putting the 
address of a custom driver program 
here, Sorcerer will jump to it instead 
of the built in driver. Figure 1 is a hex 
dump of the driver program I use with 
my RS232 Selectric. It is the same 
program that Exidy uses in the ROM 
pac to drive an RS232 printer, with 
the addition of a delay routine to 
effectively slow 1200 baud to 110 
baud or thereabouts. The delay can 
be changed by varying the number in 
17H. 

I get into the monitor and Load 
this program into memory starting at 
OOH. I then enter the starting address 
(OOH) into 7E7 and 7E8, and go back 
to the pac with PP. Then I turn the 
Selectric on, and that's it; instant 
printing. 

The Y command lists several 
other options, including page length, 
right justification, number of car- 
riage returns after each line and after 
each page, left margin width, line 
width, and various other options for 
daisy wheel printers, including line 



feed size, character spacing, special 
characters and proportional spacing. 
These all add up to an impressive list 
of options available, and make this a 
system suitable for business appli- 
cations of many kinds. 

Of course, all these features and 
gimcrackery would be of little use if 
there was no way to save text from 
one typing session to the next. The 
system will work with disk storage 
via the S100 extension box for the 
Sorcerer and is compatible with 
CP/M. Nycom had it running with 
this system with no apparent glitch- 
es, but since I have no disk system I 
can't offer any first hand comments. 
The default option for data storage is 
cassette, either under program motor 
control, or under manual control. 
This works just fine for me. To record 
150 lines of 63 characters takes less 
than two minutes. It takes me a 
whole lot longer than that to write the 
lines, and two minutes doesn't seem 
very long in the greater scheme of 
things, but clearly this is slower than 
disk. At the risk of stating the 
obvious, everyone has to decide for 
himself whether the cost benefit ratio 
of disk versus cassette is right or 
not. 

An important feature of the 
system is the ability to merge files. 
Text read back into Sorcerer is 
automatically appended to existing 
text. Hence one could have a mailing 
list in one file and text to be mailed in 
another, then merge the files and, by 
macro programming, automatically 
print the text with addresses for each 
person. 

Macroprogramming you say? 
What might that be? Up to 512 
characters can be placed in the 
macro buffer forming a rudimentary 
program for doing repetitive tasks 
that people find time consuming and 
boring. Since most commands are 
single character commands, quite 
long programs for complicated oper- 
ations can be written. If I wanted to 
do double column printing for ex- 
ample, I could program the Sorcerer 
to print one line, move ahead through 
text fifty lines to the first line of the 
second column, print it in the second 
column, then move back fifty lines to 
the next line of the first column. If I 
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wanted to send a letter to everybody 
on my mailing list, I would program 
Sorcerer to put the text into the hold 
buffer, jump to the first address, 
print the address, print the hold 
buffer, jump forward again to the 
next address, print it, print the hold 
buffer again and so on as often as 
needed. The number of possible 
operations with this feature are only 
limited by the operator's imagination 
and the commands available. 

A less sophisticated feature, 
similar to macroprogramming, is 
called autocommanding. When Sor- 
cerer is in the command mode, one 
can enter several commands at once, 
have them executed in sequence, and 
repeated as many times as necess- 
ary. Both of the above examples 
could be done in autocommand as 
well, the difference being that the 
macroprogram can be stored on the 
same file as text, while autocom- 
mand has to be entered separately 
every time it is needed. 

Summary 

I have talked about many virtues 
of the Word Processor Pac, but you 
are no doubt waiting for the hidden 
gotcha's to crawl out from under 
their rocks and smile for the camera. 
So far, I have found few. A slight 
problem exists with the rollover 
feature, and when I am typing at full 
frenzy and hit the end of a line, I 
suspect that rollover sometimes fails 
to catch the second or third character 
rolled over. On the one occasion 
when I was doing some extensive 
text alteration with memory full, I 
noticed that operations were notice- 
ably slower than when there was 
plenty of memory space. Both of 
these features are in the class of 
minor irritations rather than serious 
complaints, and they deserve their 
position at the end of this article. 

In summary, I find the Word 
Processor Pac a very professional 
addition the the already numerous 
field of word processors. I urge Exidy 
to get on with the business of 
producing more of them to make 
them more available. Rumor has it 
that Exidy has undergone a small 
internal staff turnover and I hope that 
this means more products and 
support. They have a fine product in 
their word processor, suitable for 
business and professional applica- 
tions. □ 



Figure 1 

Hex dump of printer driver program for RS232 port. Program effectively delays character output 
from 1200 baud to 1 5 characters per second. 



The Word Processing pac sells 
for approximately $200 and Is 
available from your local dealer. 
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NEW POWER FOR 

YOUR APPLE FROM 

MOUNTAIN HARDWARE. 



y*. 



ROMPLUS+ 



NEW EXPANDABILITY. 

ROMPLUS+ is a peripheral board whose added features 
can turn the Apple * computer into the most powerful 
personal computer available today. 

NEW POWER. 

ROMPLUS+ provides six sockets to accept individually 
addressable 2K ROMs or EPROMs. Keyboard Filter™, 
a 2K ROM program, comes installed on the ROMPLUS+ 
board and adds many useful features to your Apple, 
including: 

• Upper and lower case letters. The only system that 
offers keyboard input and standard shift key operation. 

• Multiple user-defined character sets. 

• Colored or inverse-colored letters. 

• Keyboard macros— two key-stroke, automatic typing of 
multiple, user-defined words or phrases. Including 
BASIC and DOS commands. 

• Mixed text and graphics. 

• Improved cursor control. 

• STOP LIST and END LIST. 



• Works with Integer BASIC, RAM or ROM Applesoft, 
and DOS. 

•And more... quick to learn. Easy to use. 

• Software support provided on disk includes 
demonstration programs and two Editors that allow you 
to define your own characters or keyboard macros. 
SOPHISTICATED FIRMWARE. 

In addition to the Keyboard Filter ROM, ROMPLUS+ 
offers five sockets for ROM or EPROM, plus scratch- 
pad" RAM. And, sophisticated firmware on ROMPLUS+ 
allows one, two, or more of its chips to be used simul- 
taneously for programs longer than 2K. 
EXPANDED UTILITY. 

Many software programs really ought to be utilized 
as firmware. ROMPLUS+ makes that an actuality for 
the Apple by providing six additional ROM sockets. 
AT YOUR DEALER. NOW. 
$169. Complete and tested. Including the powerful 
Keyboard Filter ROM and full documentation. Ask your 
dealer for a demonstration. 




K Mountain Hardware, Inc. 



r & 



LEADERSHIP IN COMPUTER PERIPHERALS 

300 Harvey West Btvd . Santa Cruz. CA 95060 
(408) 429-8600 

Sounds great. 

Please send me all the details on ROMPLUS+ and 
Keyboard Filter. 

Name 



Address 



City 

Phone 



State 



Z'P 
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GENE: Retracing Your Past 
Through Genealogy 



James W. Garson 




Using a personal system for 
genealogy seems like a natural 
match. For those Interested In a 
more technical description of the 
program and techniques we'll have 
a follow-up article In next month's 
issue. 



People seem to be taking a new 
interest in their relatives, and not 
necessarily just those living. The TV 
program "Roots" helped us see what 
a fascinating thing it can be to try to 
trace back our family trees. But it isn't 
all that easy to keep track of a large 
genealogy. If you try to draw the tree 
on a giant piece of cardboard you run 
the risk of running out of room. So 
why not dust off that personal 
computer you have in the closet and 
use it to store data on your genea- 
logy? Of course, you might need a 
little software to help do the job, so 
read on to find out more about GENE. 
GENE is written in TRS-80 Level II 
BASIC, but I have tried my best to use 
only those commands and state- 
ments that are common to most 
BASICS. 

Session with GENE 

To give you an idea of what GENE 
can do, let's imagine we have just 
loaded the program Into a TRS-80 and 
typed RUN. After the introduction 
GENE asks: 

DO YOU WANT TO LOAD A TAPE? 

If we had previously run the program 
and had a tape with data on it to load, 
the answer would be YES, but since 
this is our first experience with 
GENE, we'll reply with NO (or N for 
short). 

Since we don't have a tape, GENE 
takes out a sample family tree used 
for demonstration purposes. This tree 
contains names such as ME, DAD, 
MOM, AUNT, etc., instead of names 
of real people. When GENE is 
finished setting up this tree, it will let 
us see some more instructions if we 
desire. After that, GENE starts in on 



Jamas Garson, University of Notre Dame, 
Notre Dame, IN 46556. 



the main part of the program, and the 
screen looks like this : 

MOTHER = MOM FATHER = DAD 
I SEE ME 

GENE is now waiting for us to type a 
command after the colon. It is 
showing us where it is looking in the 
family tree. Now let's "take a walk" in 
this tree by typing FATHER (or just F 
for short). Then the screen will look 
like this: 

MOTHER = DAD'S MOM 
FATHER = DAD'S PA 
I SEE DAD 

What happened? GENE moved up the 
tree to the father of the person that it 
was looking at before (namely ME), so 
now it is looking at DAD and telling us 
the names of DAD's parents. If we 
type FATHER again, we get to look 
even further back in the tree : 

MOTHER = GREATGRANDMA 
FATHER = GREATGRAMPS 
I SEE GREATGRANDMA 

It looks as though there isn't any 
more information on the parents of 
great-grandma, so this line of the tree 
has come to an end. Let's go back 
down to ME, and trace up a different 
branch of the tree. What we do now is 
type SEE (or S), and the screen will 
look like this: 

MOTHER = UNKNOWN 
FATHER = UNKNOWN 
ISEEGREATGRANDPA 
TO GET OUT OF THIS HIT RETURN 

:SEE 

WHO WOULD YOU LIKE GENE 

TO SEE? 

Now we just type ME, and GENE gets 
us back to our starting point : 

MOTHER = MOM FATHER = DAD 
I SEE ME 

The message about hitting return 
points out a handy feature of GENE. 
Nobody is perfect! We're always 
going to make mistakes during a 
command, so we'll need a way to get 
out of any messes. Simply typing 
return at any point in a command will 
cancel the input and allow typing a 
new command at the colon on the 
right of the screen. 



Making Lists 

Now let's do something different. 
We type MOTHER to get up to MOM, 
and then type LIST (or just L). The 
screen displays: 

MOTHER = MOM'S MOM 
FATHER = MOM'S DAD 

I SEE MOM 
I CAN LIST ALL CHILDREN OR 
SIBLINGS OF MOM 
TO GET OUT OF THIS HIT RETURN 

:LIST 

WHAT RELATIONSHIP 

DO YOU WANT? 

Why not dust off that per- 
sonal computer you have 
in the closet and use it to 
store data on your genea- 
logy? 

Well, that's handy! I can now check 
up on something I always forget, the 
name of my mother's sister. All I have 
to do is type SIBLINGS (or just S), and 
I get a list of all mom's siblings : 

SIBLINGS OF MOM 

AUNT 

How silly of me to forget! My 
mother's sister's name is AUNT. Now 
I know the name, so I can use SEE to 
get GENE to look at her, and trace 
back up her part of the tree. 

But right now, we're going to do 
something else. Let's see what 
happens if we ask GENE for a list of 
my children. After typing LIST and 
CHILDREN, here is what we get : 

CHILDREN OF MOM 

ME 

BRO 

SIS 

Oops, I wanted a list of my children, 
not mom's. I forgot that GENE was 
still looking at MOM. We have to type 
SEE, ME and then LIST CHILDREN. 
GENE types back: 

CHILDREN OF ME 

A blank list! Looks like I don't have 
any kids. But that is wrong ; I happen 
to have a son. It looks as though I 
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need to introduce him to GENE. To do 
that I type ADD (or just A) and the 
screen displays: 

MOTHER = MOM FATHER = DAD 
I SEE ME :ADD 

I'M READY TO ADD DATA 
ON A NEW RELATIVE 
TO GET OUT OF THIS HIT RETURN 
NAME? 

You can change the pro- 
gram so it works with your 
own family tree. 

GENE is asking for the name of 
the person we're adding, so I type 
MYSON the next question is : 

SEX? 
and I answer MALE. GENE asks: 

FATHER? 
and I type ME. Finally GENE asks : 

MOTHER? 

and I type MYWIFE. GENE promptly 
responds : 

I DON'T KNOW THAT PERSON 

Looks like we haven't introduced 
GENE to MYWIFE either, but GENE 
goes ahead with the data received and 
shows us how things stand : 

MOTHER = UNKNOWN 

FATHER = ME 

I SEE MYSON 

You can see GENE does not know 
who MYSON's mother is. We can fix 
this up by adding MYWIFE to the pro- 
gram. We will have to use the ADD 
command to introduce MYWIFE. 
After that the SEE command is used 




"Actually, I didnt even want aluminum 
siding, but an automatic dialing 
machine sold it to my automatic 
answering machine. " ©cre»tiw computing 



to get back to MYSON and then type 
CHANGE (or C) to fix up his data: 

MOTHER = UNKNOWN 
FATHER = ME 
I SEE MYSON : CHANGE 
READY TO CHANGE DATA ON 
MYSON 

TO GET OUT OF THIS HIT 
RETURN 

WHAT DATA DO I CHANGE? 

We want to change the data on MY- 
SON's mother, so we type MOTHER 
(or M). GENE responds with : 

NEW MOTHER'S NAME? 

MYWIFE is entered. GENE now 
knows all about my wife. A second 
later the screen changes to show that 
things have been fixed up : 

MOTHER = MYWIFE 

FATHER = ME 
I SEE MYSON : 

You may want to include 
relationships other than 
siblings and children, 
such as brothers, sisters, 
aunts and uncles. 

Listing Descendants 

Here is another of GENE'S fea- 
tures. We type FATHER twice to get 
up to DAD, and then type DESCEN- 
DANTS (or just D). This gives us a list 
of all the descendants of my DAD. 

DESCENDANTS OF DAD 

GENERATION 1 

CHILDREN OF DAD 

ME 

BRO 

SIS 

GENERATION 2 

CHILDREN OF ME 

MYSON 

Sure enough, GENE knows enough to 
count MYSON as one of my DAD's 
descendants. 

The END command terminates 
GENE. GENE then asks if you want to 
store the data on tape. After typing 
YES (or just Y) GENE requests that 
you load a new tape into the cassette 
recorder. We type return, the cassette 
is recorded, and GENE stops after 
printing a polite BYE! IT IS VERY 
IMPORTANT TO LOAD A NEW TAPE 
WHEN YOU ARE STORING DATA. If 
you forgot to do so, you may write 
over your copy of GENE. To avoid 
this, make sure the cassette you store 
GENE on has the little tabs punched 
out to prevent recording over it. 

Entering Your Own Tree 

There are two ways you can 
change the program so it works with 



your own family tree. Things are quite 
easy if you intend to store your data 
on tape. All you need do is type NEW 
(or N) to clear off the demonstration 
data. Then use the ADD command to 
put in new data on your relatives. You 
should put in your oldest relatives 
first so that GENE will already be 
introduced to fathers and mothers of 
people you add later on. Once you 
have built up a part of your family tree 
this way, you can store it on tape and 
simply load the tape anytime you use 
GENE again. You can then throw 
away lines 1500-1650 and 50-70, In 
case you want to save space. (I like to 
keep these lines, though, so I can 
show off how GENE works to people 
who don't happen to know anything 
about my relatives.) 

One problem with the TRS-80 is 
that loading data from tape is a bit 
slow. It may be easier for you to 
simply replace the demonstration 
data in lines 2000 to 5000 with your 
own. You will have to add your data in 
by editing the program. The format for 
the data statement is : 

DATA "name", "sex", M, F 

The numbers of M and F should 
"point" to the data on the mother and 
father of a person. For example, the 
statement : 

DATA "JAMES W. GARSON," 
"MALE,"6,7 

records data for me, and it says the 
data for my mother is in the 6th data 
statement and data on my father is in 
the 7th data statement. It is a good 
idea to number the DATA statements 
2001, 2002, 2003, etc., so you can 
easily see which statement is the 1st, 
2nd, 3rd and so on in your list of data. 
It Is important to put DATA "UN- 
KNOWN." "?," 1, 1 as your first data 
statement, and make sure that the 
last line (line 5000) reads DATA "", "", 
1,1. 
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GENE Improvements 

GENE is really only a beginning. 
There are probably a number of 
features you want which I haven't 
thought about, or haven't had the time 
to put in. A program which did what 
everybody wants would probably be 
too large for a microcomputer, so it is 
better to let people who use GENE 
modify it to fit their needs. Here are a 
few guideposts to help you on your 
way. 

Let's begin by explaining how to 
give GENE the ability to store other 
kinds of information such as birth- 
days, names of spouses, addresses, 
occupations or other notable facts. 
To store information on birthdays, for 
example, you need to set up a new 
array B$, and dimension it : 

27DIMB$(100) 

Then you will need to add "B$(J)" at 
lines 76, 360 and 1520 to make sure 
the information stored in B$ will be 
read from the tape, stored on tape and 
read from the data in the program. For 
example, after the modification line 
76 should read: 

76 FOR J = 1 TO P: INPUT#-1 , 
N$(J),S$(J),M(J),F(J),B$(J): 
NEXT J 

You will also need to change the 
DATA items in lines 2000-5000 so they 
include data on birthdays. For exam- 
ple, line 2002 should now read : 

2002 DATA "ME," "M," 5, 8 
"JULY 26 1943." 

If you are storing your data on tape, 



you will only need to change the first 
data statement this way, since the 
other data statement wi 1 1 be ignored . 

You will also need to modify the 
ADD command to request informa- 
tion on birthdays, just add : 

225 PRINT "BIRTHDAY" ; : 
GOSUB1000: B$(P + 1) = R$ 

The CHANGE command also needs a 
revision : 

645 IF R$ = "B" THEN PRINT 
"NEW BIRTHDAY" ; : 

GOSUB1000: B$(K) = R$: 

GO T0 100 

and the print statement at 658 needs 
an addition: 

One of the basic principles 
of personal programming 
should be to train the 
computer to follow some 
simple rules of conversa- 
tional etiquette. 



658 PRINT "ANSWER, NAME, 
SEX, FATHER, MOTHER OR 
BIRTHDAY": GO TO 620 

Another desired feature is to get 
GENE to print out data on birthdays, 
sex, or whatever else you stored. That 
is easy enough. For example, to get a 
command that prints the birthday of 
the person GENE is looking at, just 
add: 



194 IF R$ = "B" THEN 
"BDAYOF";N$(W);"IS 
";B$(W): GOT0 1000!! 



PRINT 



Another part of the program that 
needs development is the LIST com- 
mand. You may want to include rela- 
tionships other than siblings and 
children, such as brothers, sisters, 
aunts and uncles. The article, "How 
to Make a BASIC Tree" (Creative 
Computing, Nov. 1979) will explain 
the techniques in detail. Also, ex- 
amine how the siblings and children 
feature is programmed in lines 
580-599. 

A Bit of Philosophy 

I'm sure you can think of a lot of 
other things to add to GENE, but 
before you go off and experiment with 
it, I'd like to say a few things about the 
basic philosophy that went into the 
design of the program. There are two 
things I am proud of. 

First, you are never stuck in a 
command. You can always get out by 
simply hitting return. Second, at any 
point in the program typing "?" will 
get you a helpful message telling you 
what your options are. This means 
that GENE has to have a number of 
subroutines to handle interaction 
with the user, but it is well worth it. 
One of the basic principles of 
personal programming should be to 
train the computer to follow some 
simple rules of conversational eti- 
quette. These rules include letting 
people change the topic when they 
want, as well as helping them out 
when they get confused. 

A final note: you may run out of 
memory if you put a lot of data into 
GENE. Not to worry. Just increase the 
values in the CLEAR and DIMENSION 
statements in lines 25 and 26. D 



5 REH 

19 REH • GOC. A GENEALOGY PROGRAM 

U REH • <C> 1979 BY JIB GflRSON 

12 REM • DEPT OF PHILOSOPHY. U. OF NOTRE DAME 

14 REN • NOTRE DANE. I NO 46556 

16 REH «—»•—«■»»—»»«' i mi wimm. 

17 REM • IMPORTANT VARIABLES 

18 REM • U NUMBER OF PERSON GENE IS LOOKING AT 
NUMBER OF PEOPLE YOU HAVE DATA ON 
ARRAY WITH NAMES IN IT 
ARRAY WITH SEXES IN IT 
ARRAY WITH NUMBERS OF MOTHERS IN IT 
ARRAY HITH NUMBERS OF FATHERS IN IT 



19 REM • P 

28 REM « N* 

21 REM • S* 

22 REM « M 

23 REM * F 

24 REM 

25 CLEAR<2««e> 

23 dim N*aee>.s*aee>. Fci88>.H<iee> 

29 DIM S<19>.S1<19> 

«9 as 

42 PRINT *486. 'HI ! I'M GENE" 

43 PRINT TAB<19>; "YOUR FRIENDLY GENEALOUV PROGRAM" 

44 PRINT PRINT PRINT-ANYTIME YOU DON'T KNOW WAT TO DO" 

45 PRINT "JUST TYPE QUESTION MARK <?> FOR HELP" 

46 PRINT 

•e PRINT "DO YOU MANT TO LOAD A TAPE"; 
69 R*«" : IMPUTR* :R»H£FT*<R*. 1> 

65 IF R»«"V" THEN 72 

66 IF R*»"N" THEN 98 

67 PRINT "TYPE YES OR NO" 

68 PRINT "IF IN DOUBT TYPE NO" Q0T0 59 
78 PRINT "TYPE YES OR NO" 

71 REM • LINES 72-78 LOAD A TAPE 

72 PRINT "GET CASSETTE IN RECORDER AND PUSH RECORD BUTTON" 



73 PRINT "HIT RETURN WHEN READY" 

74 INPUT AS 

75 INPUTt-1, P. U 

76 FOR J-l TO P: INPUTt-1. N*<J>. S*<J>.FU>,H<J>:NEXTJ 
78 GOTO 188 

?8 GOSUB 1589 REH • LOADS SAMPLE DATA 

» CLS 

109 GOSUB 1288: REN .PRINT HEADINO 

118 PRINT 9569. ":"; 

128 G0SUB110B REM • PUT FIRST CHARACTER OF RESPONSE INTO Rt 

139 CLS : GOSUB 1289 REH • PRINT HEADING 

135 IF R*«"E" THEN 398 REM • END 

REH * SEE 

REH • ADO 

REH • DESCENDENTS 

REH * CHANGE 

REH « LIST 

REH • MOTHER 
PEH • FATHER 



148 IF R*»"S" THEN 488 

145 IF RO-A" THEN 298 

158 IF P*«"D" THEN 788 

155 IF R*>-C" THEN 688 

160 IF R*»"L" THEN see 

178 IF R*»"H" THEN H*1(H> GOTO 188 

188 IF R**-F" THEN W»F<M> GOTO 189 



185 IF RM"N" THEN:P-l:PRINT»4ee, "READY FOR NEW DATA" GOTO 188 

198 IF Rf "?* THEN G0SUB9ie GOTO 189: REH * SEE COMMANDS 

195 PRINT 9489. "MHAT?T> TYPE ? FOR HELP" GOTO 188 

209 REH • ADD INFO ON A NEW RELATIVE 

235 PRINT • 192. 

297 REH • SUBROUTINE 1888 GETS RESPONSE AND PUTS IN R* 

288 PRINT "I'M READY TO ADD DATA ON A NEU RELATIVE" 

289 PRINT "IF YOU DON'T MANT TO DO THAT. HIT RETURN * 
218 PRINT -NAME"; GOSUB 1888 N*(P«-1>-R* 

220 PRINT "SEX"; GOSUB 1889 S*(P*1»R* 

238 GOSUB 1389 REH * GETS NAMES OF MOTHER FATHER. UPDATES M, F 
249 P4M REM . P NOW POINTS TP FIRST EMPTY SPOT IN ARRAYS 
259 W:00T0 199 
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3*8 REN • END OCCK TO SEE IF THEY WANT TO STORE 1*0 ON TAPE 
382 PRINT* 528. "DO VOU HRNT TO STORE WHAT VOU HAVE ON TAPE*; 

3ie oosue uee : reh • puts first character typed in r* 

328 IF R*-*N* THEN 398 

329 IF Rt"'Y* THEN 338 

327 PRINT -ANSWER VIS OR NO* 

328 PRINT *IF VOU AREN'T SURE, TYPE NO* 

329 GOTO 382 

338 PRINT -GET TAPE LOADED AND PRESS RECORD BUTTONS' 
34* PRINT 'TYPE RETURN WHEN READY- 
MS INPUT Rt 
338 PRINT*-1, P. U 

368 FOR J«l TO P:PRINTt-l,N«<J).S«<J)-F<J),N<J):NEXT J 
398 OSPRINTK5S. 'IF YOU WANT TO START ME OVER WITH THE SANE" 

392 PRINT -DATA, VOU CAN TYPE CONT AFTER READY" 
394 PRINT8488,'BYE!*:ST0P 

393 GOTO 188 

488 REH • HAKES GENE LOOK AT RELATIVE WANED BY THE USER 

481 PRINT 8256. "TO GET OUT OF THIS HIT RETURN" 

482 PRINT "MHO WOULD VOU LIKE GENE TO SEE". 

483 GOSUB 1888 REH • GET INPUT CHECK FOR ? AMD EMPTY RESPONSE 
418 GOSUB 1488 REH • FIND NUMBER FOR NAME IN R*. PUT IN J 

428 IF J-l THEN GOTO 188 

438 U- J 

448 GOTO 188 

588 REN • LISTS ALL RELATIVES WITH A GIVEN RELATIONSHIP 

982 REH • TO THE PERSON GENE SEES. 

5*4 REH • VOU HAY HRNT TO ADD MORE RELATIONSHIPS TO THIS 

386 REH • TO LEARN HON SEE 'HON TO BUILD A BASIC TREE" 

388 PRINT 8192. 

5*9 PRINT "I CAN LIST ALL CHILDREN OR SIBLINGS OF ";Nt<M> 

31* PRINT 'TO OET OUT OF THIS HIT RETURN* 

513 PRINT "WHAT RELATIONSHIP 00 VOU HRNT*; 

528 GOSUB U88 REH • PUTS FIRST CHARACTER TYPED IN R* 

338 IF Rt»"C" THEN PRINT "CHILDREN OF ";Nt<H): GOTO 588 

333 IF R*»"S" THEN PRINT "SIBLINGS OF MUffl): GOTO 598 

548 PRINT "ANSWER C FOR CHILDREN OR S FOR SIBLINGS" GOTO 518 
588 FOR J1 TO P: REH • PRINT CHILDREN OF W 
582 IF W*IO) OR W*-<J> THEN PRINT Nt(J> 

334 NEXT J 
586 GOTO 188 

598 FOR J-l TO P REH « PRINT SIBLINGS OF W 

591 IF H-J THEN 594 REH * DON'T PRINT NAME OF PERSON SEEN 

592 IF <F<W)»F<J> AND FU>01> OR <H<H>-HU> AND H(J)Oi> THEN PRINT N*(J) 
594 NEXT J 

599 GOTO 188 

688 REH • CHANGES DATA ON PERSON GENE SEES. 

615 PRINT8256. "READY TO CHANGE DATA ON "; N*(H> 

616 PRINT "TO GET OUT OF THIS HIT RETURN" 
618 PRINT "WHAT DATA DO I CHANGE". 

628 GOSUB 1108: REH • PUTS FIRST CHARACTER TYPED IN Rt 
638 IF Rf'N'THEN PRINT'NEH NAME"; G0SUB1688 N*(K>>ft« GOTO 188 
648 IF R*»"S" THEN PRINT-NEW SEX"; G0SUB1B88 St(K>.*t GOTO 108 
638 IF R*»"M* THEN GOTO 678 
655 IF Rt-"F" THEN GOTO 688 

658 PRINT "ANSWER NATE, SEX, FATHER OR MOTHER' GOTO 628 
67* INPUT "NEW MOTHER'S NAME"; R* GOSUB 1488 
672 IKMW: GOTO 188 

688 INPUT "NEW FATHER'S NAME"; Rt SOSIS 1488 
632 F(W>'J GOTO 188 
788 REH • PRINT DESCENDENTS 
785 G-8 

787 PRINT • 192, 

788 IF H-l THEN PRINT "PERSON UNKNOWN" GOTO 188 
71* PRINT "DESCENDENTS OF "I N*<W) 
711 C«i:S<C>-M 
712G-6+1 

715 PRINT "GENERATION *l 
728 Fl-8 

Til FOR K-l TO C 
73* PRINT 'CHILDREN OF ";Nt<S<K>> 

732 Cl-8 

733 FOR >1 TO P 

748 IF F<J).S<K> OR H<J)-S<K> THEN C1*C1*1:SKC1>«J: PRINT N*<J> 

745 NEXT J 

738 IF Cl>8 THEN Fl-1 

755 NEXT K 

768 IF Fl-8 THEN INPUT-HIT RETURN TO CONTINUE"; Rt GOTO 188 

765 C»C1 FOR K1 TO C1:S<K)«S1<K):NEXT K: GOTO 712 

9ie as 

912 PRINT -COMMANDS CAN ALL BE SHORTENED TO THEIR FIRST LETTER" 



CHANGE DATA ON PERSON SEEN BY GENE" 
LISTS ALL PEOPLE WITH A GIVEN RELATION-" 
SHIP TO PERSON SEEN BY GENE" 
LISTS ALL DESCENDENTS " 
OF PERSON GENE SEES" 

CLEARS OFF OLD TREE SO VOU CAN START OVER" 
TO SEE THIS LIST OR FOR HELP" 
Rt 



914 PRIHT 
916 PRINT ' 
918 PRINT 
928 PRINT 
93* PRINT ' 
948 PRINT 
945 PRINT 



END 



SEE 

MOTHER 



FATHER 
ADD 



OIVES VOU THE OPPORTUNITY TO STORE DATA" 
OH TAPE, AND THEN STOPS" 
GENE HILL LOOK AT A PERSON YOU NAME- 
GENE WILL LOOK AT THE MOTHER OF THE' 
PERSON SEEN" 

GENE HILL LOOK AT FATHER OF PERSON SEEN' 
ADD DATA ON A NEW PERSON* 



958 PRINT " CHANGE 

955 PRINT " LIST 

968 PRINT " 

978 PRINT " DESC 

988 PRINT " 

982 PRINT " NEW 

99* PRINT * ? 

995 INPUT 'HIT RETURN TO CONTINUE" 

999 OS RETURN 

1888 REJKWTS USER'S RESPONSE IH Rt GOES TO 188 IF RETURN HIT 

1818 RM"":INPUTRt: IF Rt«" THEN 188 

1828 RETURN 

1188 REH • PUTS FIRST CHARACTER IF USER'S RESPONSE IN Rt 

1118 REH • IF RETURN HAS HIT GOES TO 188 

1128 Rt-": INPUT Rt:Rt^EFTt(Rt.l> IF Rt»" THEN 188 

1138 RETURN 

128* REM • PRINTS HEADING 

121* PRINT 88. 

1228 PRINT «8. TAB<4>; "MOTHER ■ ";Nt<H<M>).Tr«<38>; "FATHER • ';N*<F<M»i- 

1238 PRINT TA6<28>; "I SEE ". Nt(W> 

1248 RETURN 

1388 REH • THIS SUBROUTINE TAKES MOTHERS AND FATHER NAMES 

1318 REM • AND STORES THEIR CORRESPONDING NUMBERS AT 

1328 REM • LOCATION P»l IN ARRAYS H AND F 

1338 PRINT -MOTHER-; GOSUBieeB: REH • PUT RESPONSE IN Rt 

1348 GOSUB 1488 : REN • GET NUMBER FOR NAME IH Rt 

1358 H<P+1W 

1368 PRIHT -FATHER*; 009*1888 REM • PUT RESPONSE IN Rt 

1378 GOSUB 1488 

1388 F(P*1).J 

1398 RETURN 

1488 REH • TAKES NAME IH R* AND PUTS ITS NUMBER IN J 

1418 FOR J-l TO P 

1428 IF Nt< J>-«« THEN 1468 

1438 NEXT J 

1448 PRINT "I DON'T KNOW THAT PERSON": J«i 

1468 RETURN 

1588 REH • THIS LOADS DEMONSTRATION DATA 

1582 REH * TO BUILD YOUR OWN FAMILY TREE 

1S84 REH • USE THE NEW COMMAND TO ERASE DEMONSTRATION DATA 

1586 REH • THEN USE THE ADD COMMAND TO PUT IH VOUR TREE 

1588 REH • THIS WORKS IF VOU ARE STORING DATA ON TAPE 

1518 REH • IF VOU WANT TO STORE DATA IN THE PROGRAM 

1512 REH • VOU HILL NEED TO EDIT LINES 2888-5888 

1314 REH • EACH DATA STATEMENT HAS THE FORM 

1516 REH • DATA -NAME-. "SEX'.fcF 

1518 REM - H IS THE NUMBER OF THE DATA STATEMENT 

1528 REH • WHERE DATA THE MOTHER OF THIS PERSON IS STORED 

1522 REH • AND F IS THE PLACE WHERE DATA ON THE FATHER IS 

1548 U>2 : REH * H IS PERSON GENE IS LOOKING AT 

1558 P*8 

1555 P**l 

1568 READ Nt<P),St<P),M<P).F(P) 

1578 IF Nt<P>«" THEN 1688 

158* GOTO 1555 

1688 as PRINT *I JUST LOADED A SAMPLE FAHILV TREE SO THAT 

1618 PRINT "YOU CAN GET AN IDEA OF WHAT I CRN 00. * 

1628 PRINT "VOU HILL SEE NAMES LIKE ME, HON. DAD.AUNT, ETC. ' 

1638 PRIHT 'INSTEAD OF NAMES OF ACTUAL PEOPLE. " 

1648 PRINT "I WILL START BY PRINTING THE NAME OF THE PERSON 

1658 PRINT "I AN LOOKING AT IN THE TREE, AND THE NAMES OF THIS" 

1668 PRIHT "PERSON'S PARENTS I SUGGEST VOU TRY OUT THE* 

1678 PRIHT -MOTHER AND FATHER COMMANDS FIRST. ' 

1668 PRINT "PLAY AROUND 'TIL VOU ARE USED TO ALL THE COMMANDS" 

1698 PRINT "TO PUT IN VOUR OWN FAMILY TREE USE THE NEW COMMAND" 

1695 PRIHT "TO CLEAR OFF THE DEMONSTRATION TREE. " 

1788 PRINT 'THEN USE THE ADD COMMAND TO PUT IN DATA ON" 

1718 PRINT -VOUR REALTIVES. " 

»-•» PRINT "TO SEE A LIST OF THE COMMANDS OR FOR HELP TYPE ?• 

1738 Rt»"":IHPUTRt:Rt*EFTt<Rt,l> 

1733 IF Rt-*?* THEN G0SUB918 

1748 CLSRETURN 

2881 DATA -UNKNOWN*. "?". 1,1 

2*82 DATA -ME". 'H-.5.8 

28*3 DATA "8R0". *M', 5.8 

2884 DATA "SIS*. "F", 5, 8 

2885 DATA *MOH*. *F*.6,7 

2886 DATA "MOM'S HON". "F-.1.1 

2887 DATA "MOM'S DAD". "MM.1 

2888 DATA "DAD". "H',9.18 

2889 DATA "DAD'S MOH". "F\l,l 
2818 DATA 'DAD'S PA'. 'H'. 12, 11 

2811 DATA ■GREATGRAHPS", "H',1,1 

2812 DATA "GREATGRANDMA". "F-,1,1 

2813 DATA 'AUNT*. 'F',6.7 

2814 DATA "COUSIN'. 'H'. 13,1 
SMS DATA *-.*M,l 
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Eliminating troublesome calculations 

Genetics Calculations 
in Basic 

Peter Koski 




Unlike Fortran, Basic allows for 
logical manipulation of alphanumeric 
information (strings) as well as com- 
plex mathematical calculations. Thus, 
by combining the two, very powerful 
problem solving is available to the 
user. The following program takes 
advantage of both of these, particu- 
larly Basic's ability to handle complex 
strings. 

Most work in genetics involves the 
cross between two parents, and the 
subsequent study of the resulting off- 
spring. When' more than two or three 
genes are involved, or when sex-linked 
characteristics are analyzed, the 
results can be staggering. Often, the 
time spent in reaching these results 
is also staggering. 

Peter Koski. 27 Dogwood Dr . Allendale. NJ 07401 



Using The Program 

Referring to the sample run, 
parent one has been entered as being 
a heterozygous brown-eyed, homo- 
zygous tall male; parent two as a 
heterozygous brown-eyed, hetero- 
zygous tall female. The program then 
promptly returns the "gamete number" 
(total different gene combinations for 
each parent). The gametes of each 
parent are then printed out along with 
a list of the resulting off-spring. 

The program doesn't end here, 
however, as the "Pertinent Statistics 
Subprogram" takes over the job of 
sorting out this mess. By entering one 
or two genes of interest, the subpro- 
gram will count the number of occur- 
rences of each gene or combination 



of two genes, as well as compute the 
gene frequency. 

This program was written for use 
on an Ohio Scientific Challenger II 
with a printer attached to the serial 
port. The printer is optional, as a sub- 
routine within the program monitors 
the "ESC" key to provide alternate 
start/stop control of the listings. 

The program runs fine with 8K, 
however, more memory would permit 
crosses of greater complexity. The 
program as it is presented here allows 
for a maximum of 128 off-spring (only 
16 are possible when running with 8K) 
in crosses involving 6 genes or less. To 
increase these limits, the DIMension 
statements must be changed, as well 
as the housekeeping For/Next loop in 
statements 1790-1810 Q 
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Introduction 

If the breadwinner in your family 
were to die today, would his or her 
estate adequately provide for your 
current and future family needs? How 
much do you have to supplement your 
family's monthly income, to educate 
your children, to discharge your debts, 
to possibly provide for dependent 
parents and to pay death taxes and 
other estate taxes. Government bene- 
fits alone will probably fall short in 
providing the standard of living you 
desire for your family. In this article, a 
technique for estate planning will be 
presented. Although it is not capable of 
providing a definitive answer to the 
complex question of how much is 
enough, it will at least permit you to 
approximate your estate needs at 
various intervals in your life. The 
approach suggested is not the only 
means of estimating such require- 
ments, nor could unqualified reliance 
be placed upon it or any similar 
technique. Moreover, it only supplies a 
rough minimum dollar goal that will 
continually change with time and cir- 
cumstances. This technique was 
introduced by Kinevan in his book, 
Personal Estate Planning. Prentice 
Hall is planning to publish his book and 
it will be available in 1980. 1 have taken 
the technique as explained in Kine- 
van's book and programmed it in Level 
II BASIC for the TRS-80 computer. 
Both a 16K and 32K version are avail- 
able. The 16K version has all capa- 
bilities of the 32K version with excep- 
tion of dependency and indemnity 
compensation for military personnel. 
The program listed with this article is 
the 32K version, and has not been 
optimized for speed or storage space. 
Rather than using Present Value and 
Present Value of Annuity tables as 
given in his book, I have used closed 
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formulas in developing the computer 
program. Currently, this program is on 
cassette and is operated in an inter- 
active mode with the user. All outputs 
appear on the video monitor and 
therefore you do not need a printer in 
running the current version of the 
program. 

Constructing an Estate 
Programming Chart 

Initially, we'll discuss the con- 
struction of an Estate Programming 
Chart as given in Kinevan's book by 
using paper, pencil, calculator and 
arithmetic chart paper. The largest and 
by far the most important need would 
be supplementary income for your wife 
and children. An exercise called estate 
programming will give you a rough 
idea of how much should be available 
for this purpose. 

Any number of factors, 
both foreseeable and 
unforeseeable, could 
alter It considerably. 

The first step is to estimate the 
monthly income your survivors will 
need, assuming you were to die within 
the next few months. Essentials such 
as housing, food and clothing must be 
considered, of course, as well as other 
expenses which, although not neces- 
sities, contribute significantly to well- 
being and enjoyment. Obviously, such 
an estimate will vary with each family. 
You might work this out in detail, but if 
you assume the need will be 75% of 
present monthly income, you should 
be sufficiently close. Any future 
erosion in the purchasing power of the 
dollar will be a critical consideration 
when it comes to making disposition 
arrangements or investing estate 
assets, but for purposes of approxi- 
mating your current requirements, 



disregard inflation. 

The monthly income figure then is 
plotted on a piece of paper on which 
the vertical scale represents dollars 
and horizontal scale indicates years 
commencing with the assumed date of 
death, which is labeled year 0. Com- 
mon arithmetic chart paper is con- 
venient for this purpose. 

After you have entered your 
monthly income-for-survivors goal on 
the chart, the next step is to plot in the 
survivors benefits to which your 
dependents might be entitled (De- 
pendency and Indemnity Compen- 
sation (DIC), Social Security, or 
Survivors Benefit Plan (SBP)). These 
will vary from time to time, so any 
approximation of estate requirements 
has only temporary value. 

The following example assumes 
you are in the military service and 
therefore Dependency and Indemnity 
Compensation must be considered. 
The computer program allows the user 
to either select or not select this option. 
But to illustrate, assume you are a 28- 
year-old captain with 6 years of service 
and that you have a 26-year-old wife, 
Irmatrude, and two children. Alpha, 
who is 4, and Omega, who is 1. If you 
decide that your family would require a 
monthly income of at least $1,400, you 
first would draw a horizontal line on 
your chart representing this goal. Next, 
you would compute the government 
survivors' benefits to which they would 
be entitled. Dependency and Indem- 
nity Compensation of $426 a month 
would be paid to Irmatrude until Alpha 
reaches age 18, then $395 a month 
until Omega reaches age 18, and then 
$364 a month for the rest of her life or 
until she remarried. These figures are 
then entered on the chart. Assume 
your average monthly wage for Social 
Security purposes is such that Irma- 
trude would receive $81 4 a month from 
this source until Alpha is 18, which 
would be in 14 years, and that this 
benefit then would drop to $699 until 
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Omega is 18, after which it would 
terminate until Irmatrude, at age 65, 
becomes entitled to $466 a month; this 
latter date would be 39 years from the 
assumed date of your death, which is 
represented by the "0" year at the far 
left of your chart. After plotting these 
various sums, your estate program- 
ming chart should resemble Figure 1. 
At this point, it is readily apparent 
that standing alone, the survivors' 
benefits would not be adequate. For 
convenience, you might label and 
number the four different periods in 
which the combined DIC and Social 
Security payments fail to meet your 
$1 ,400 a month goal as "gaps." Thus, to 
achieve $1,400 monthly during Gap 1, 
an additional $160 a month must be 
provided from some source. Similarly, 
Gap 2 requires $306, Gap 3 $1 .036 and 
Gap 4 $570 monthly. 

Determining the total number of 
dollars necessary to fill each of these 
gaps would simply be a matter of 
multiplying these monthly shortages 
by 12 times the number of years in each 
period. But this would be almost as 
illusory as the "estate-equal-to-all- 
future-earnings" fallacy. It disregards 
the fact that the funds to be used to 
supplement the government benefits 
are not all needed at the time of death, 
but rather over an extended period 
and. until actually needed, the estate 
could be invested and earnings from it 
used or added to principal. Hence, the 
inquiry should be: how much is needed 
at the assumed date of death to provide 
income sufficient to fill each gap? 

There is nothing difficult about 
ascertaining this figure, and any 
reasonably bright fifth grader equip- 
ped with the appropriate mathematical 
tables and an explanation of how to 



use them should be capable of pro- 
viding a correct answer. The tables 
needed are Present Value of Annuity 
(PVA) and Present Value (PV). These 
may be found in most books of 
standard mathematical tables. 

With PVA and PV tables, together 
with a pencil, scratchpad and a 
calculator, you can come up with a 
rough estimate of the principal sum 
your family would require to supple- 
ment its monthly income. How much is 
needed at the assumed date of death to 
fill each gap is first determined, then 
these sums are totaled. 

Roughly approximate 
the potential shrinkage 
of assets that will be 
caused by the expens- 
es of death taxes and 
estate administration. 

Gap 1. The deficiency here is $160 
a month, or $1,920 a year, for a period 
of 14 years. To determine how much 
would have to be available at the 
beginning of the period (year "0"), the 
annual requirement ($1,920) is merely 
multiplied by some factor opposite 
"14" in the "years" column of the 
Present Value of Annuity table. 

The particular percentage column 
you use depends upon what rate of 
return you believe your estate would 
realize. This, in turn, depends not only 
upon what disposition you have 
arranged (e.g., a life insurance install- 
ment settlement option, a trust, a 
mutual fund withdrawal plan, or 
outright cash bequests to the widow to 
manage), but also upon several vari- 
ables that cannot be precisely deter- 
mined (e.g., yields and capital appre- 
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ciation on funds held in trust or 
invested in securities). Moreover, you 
might decide that a disposition plan 
using two or more devices is the safest. 
Therefore, about the best you can do is 
to select some conservative yield 
figure that, barring anything short of a 
major financial catastrophe, should be 
realized. For these purposes, if you err, 
do so on the conservative side by 
assuming that your estate would return 
only 5% after taxes. 

As the period in question lasts for 
14 years, the factor opposite "14" in the 
"years" column and under "05 (5%)" is 
9.8981. This simply means that if you 
invested $9.90 at 5% compounded 
interest, at the end of the first year and 
each of the following 13 years, you 
could withdraw $1, and after 14 years 
nothing would be left Consequently, 
since the annual requirement is $1 ,920, 
multiply 1,920 by 9.8981 and you have 
the answer to how much is needed to 
"fill" Gap 1. The product is $19,004.35 
or, in round figures, about $19,000. 

Gap 2. There is one additional step 
involved in determining the sum 
necessary at year "0" to fill Gap 2, 
which commences 14 years later. But 
first, it is necessary to go through a 
computation similar to that for Gap 1. 
Here, the dollar deficiency is $306 a 
month of $3,672 a year for a 3 year 
period (from year "14" through year 
"17"). Thus, going again to the PVA 
table, the factor opposite "3" in the 
years column and under the 5% 
column is 2.7232. Multiplying 2.7232 
by 3,672 gives an answer of about 
$10,000. 

Don't be discouraged 
by what, to most young 
people, might seem to 
bean unreachablegoal. 

Now, here is where the second 
step comes in. Ten thousand dollars at 
5% would provide an income of $3,672 
a year for a 3-year period. But the 3- 
year period in question does not 
commence until 14 years after as- 
sumed year of death. Hence, the 
inquiry becomes: if invested to yield 
5% compounded annually, what prin- 
cipal sum would be necessary at the 
beginning of a 14 year period, so that at 
the end of 14 years the principal and 
earnings would equal $10,000? This is 
where the Present Value table comes 
in. Opposite "14" in the years column 
and below the 5% column you will find 
the factor 0.5051. This merely means 
that if you invest about 51 cents at 5% 
after 14 years you would have $1. 
Therefore, simply multiply 0.5051 by 
10,000 and the answer, about $5,050, is 
the sum which would be needed in year 
"0" to fill Gap 2. 
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Gap 3. Computations similar to 
those for Gap 2 are used here. One 
thousand thirty six dollars a month or 
$12,432 a year is needed for 22 years 
(from year 17 through year 39). Thus, 
again assuming a 5% return, the factor 
13.1630 is taken from the PVA table. 
Multiplying 12,432 by this indicates 
that when the gap commences, about 
$164,000 would be required. But as this 
gap is 1 7 years away from the assumed 
date of death, 164,000 multiplied by 
0.4363 (from the PV table), or about 
$71,600, is the sum that would have to 
be in the estate to provide for Gap 3. 

Too many unforesee- 
able developments are 
bound to distort your 
assumptions, and they 
do not reckon with the 
inroads of inflation. 

Gap 4. The same procedure is 
used, except that the termination date 
is not known. To estimate when this 
might occur (when the widow will die), 
refer to the mortality table currently 
used by insurance companies to 
estimate how long females of various 
ages should live. And to avoid endan- 
gering an elderly widow's means of 
support, add about 5 years. For this 
illustration, at the time of your as- 
sumed date of death, your widow 
would be 26. The mortality table 
indicates that her life expectancy 
would be about 48 more years, or until 
age 74. To be conservative, though, 
assume she will live another 5 years 
beyond this, or until age 79. Thus, Gap 
4, which commences 39 years after 
year "0", would end 14 years later or at 
plus 53 years. 

The income deficiency during this 
period is $570 a month of $6,840 a year. 
Hence, 9.8981 times 6.840 or about 
$67,700 would be necessary at the 
beginning of the gap. And 0.1491 times 
67,700 or about $10,100 should be 
available at the assumed time of death. 

Minimum Net Estate Required. By 
adding the sums needed at year "0" to 
fill each of the four gaps, the minimum 
amount your survivors would need to 
supplement their government benefits 
can be estimated. Thus, $19,000 + 
$5,050 + $71 ,600 + $10,100, or a total of 
$105,750, should be provided for this 
purpose. 

Remember, though, that this woud 
be no more than a rough planning 
figure, and that any number of factors, 
both foreseeable and unforeseeable, 
could alter it considerably. However, it 
is a starting point, and most people fail 
to get even this far in planning for 
survivors' needs. 



Additional Requirements to Consider 

In addition to the primary need to 
have enough to supplement your 
survivors' other income, your estate 
should be large enough to discharge 
your debts, to pay for the costs of 
administration and any death taxes 
that might be due. and assuming you 
have children and typical parental 
ambitions, to provide college educa- 
tions for your children. A number of 
other things — such as financial 
assistance for low-income parents, or 
funds to enable a widow who is not 
otherwise so qualified to obtain the 
education or training necessary for 
employment — might be appropriate 
considerations in particular cases, but 
for our present purpose we shall 
disregard them. 

Debts. Indebtedness will fluctuate, 
of course, but let's assume you owe a 
total of $5,000 to creditors. If there 
were a real estate mortage note out- 
standing, the unpaid balance should 
be included in your calculations. 

College Costs. Based upon cur- 
rent costs, four years as a resident at a 
state college or university requires 
about $18,000 for tuition, room and 
board, books, incidentals and travel; at 
a private school, the average figure is 
approaching $30,000. Although these 
costs are expected to increase signifi- 
cantly over the years, to provide both 
of the children in our example with 
$24,000 when they become 18 would 
require, at ages 1 and 4, the sum of 
0.4363 (24,000) plus 0.5051 (24,000), or 
about $22,600 (The factors are from 
the 5% column of the Present Value 
Tables). Of course, a child might be 
expected, through summer employ- 
ment or otherwise, to contribute 
something to his or her own education, 
but if you want to be safe, include the 
$22,600 in your estimates. 

Death Taxes and Costs of Admin- 
istration. An effort should be made to 
roughly approximate the potential 
shrinkage of assets that will be caused 
by the expenses of death taxes and 
estate administration. 

Federal estate taxes would not be 
a factor for the size estate we have 
estimated would be needed in our 
example. It is well within the minimum 
$250,000 marital deduction plus the 
exemption equivalent (which ranges 
from $120,000 if death occurs in 1977 
to $1 75,000 for deaths after 1 980) of the 
tax credit. (As an estate grows, 
however, the federal levy becomes 
important long before the $425,000 
threshold is reached.) 

Most states, though, impose an 
inheritance tax or their own estate tax 
on smaller sums. How much, if any- 
thing, you should estimate for this 
possible expense depends initially on 
where you live. Because states vary so 



greatly, no general rule is possible. For 
example, there is no uniformity with 
respect to exemptions or credits, the 
valuations of various types of property 
interests differ, life insurance proceeds 
paid to a named beneficiary are 
exempt, in whole or in part, in about 
one-half the states, and in community 
property states, only one-half the value 
of community assets are taxable. But 
to give you some idea of costs, if a 
husband leaves his wife, after deduc- 
tions, a $200,000 estate that includes 
$100,000 of life insurance proceeds, 
she would pay an inheritance tax of 
$3,000 if Colorado had been his 
domicile; $900, if California; $2,300, if 
New Jersey; or $8,700, if Tennessee. 

For our immediate purpose, it 
probably would be sufficiently close in 
most cases, assuming you are from a 
common law state that assesses a 
death tax, to add 2% to the total of 
$133,350 we have arrived at so far. This 
increases the minimum need by about 
$2,700. 

An allowance should also be made 
for other costs associated with trans- 
ferring property from the dead to the 
living (e.g., attorney's fees and exec- 
utor's fees). If you have a relatively 
small estate and have arranged it in a 
manner to avoid, to the extent possible, 
judicial intervention and supervision, 
the costs of administration would be 
negligible. However, they could be 
significant, depending upon a number 
of considerations (e.g., the nature of 
the property, its location in more than 
one state, or the complexity of the 
distribution plans). For an estate of the 
size we are dealing with, adding 5% 
should provide an adequate margin in 
most cases. Hence, include another 
$6,700 for this component. 

Estimate the monthly 
income your survivors 
will need, assuming 
you were to die within 
the next few months. 

Based upon the computations we 
have gone through, to provide for 
Irmatrude, Alpha and Omega if you 
were to die in the near future, the size 
of your estate should be at least: 

Income supplement $105,750 

Indebtedness 5,000 

College fund 22,600 

Death taxes 2,700 

Costs of Administration 6,700 

TOTAL $142,750 

Don't be discouraged by what, to 
most young people might seem to be 
an unreachable goal. Life insurance 
programs and other investment plans 
might enable you to achieve your 
purpose much easier and less ex- 
pensively than you think. 

CREATIVE COMPUTING 



M/licra/l/ET 

It's off and running. And delivering 

as promised. 



What is MicroNET? 

It is the personal computing 
service of CompuServe, 
Incorporated. CompuServe is a 
nationwide commercial time 
sharing computer network with 
large-scale mainframes. 
MicroNET allows the personal 
computer user access to 
CompuServe's large computers, 
software and disc storage 
during off-peak hours (from 
6 PM to 5 AM weekdays, all day 
on Saturdays, Sundays and 
most holidays). 

What do I get? 

You can use our powerful 
processors with X-Basic, 
Fortran, Pascal, Macro-10, AID 
or APL. You get 1 28K bytes of 
storage free (just access it at 
least once a month). Software 
includes games— including 
networking multi-player games 
—personal, business and 
educational programs. 

In addition, there is the 
MicroNET National Bulletin 
Board for community affairs, 



for sale and wanted notices and 
the MicroNET Electronic Mail 
System for personal messages 
to other MicroNET users. You 
can even sell software via 
MicroNET. 

NEWIMicroQUOTE.a 
security information 
system for corporate 
stocks and public debt. 
NEW! MicroNET Soft- 
ware Exchange with 
dozens of new 
programs available for 
downloading to your 
personal computer at a 
specified charge. 
NEW! Executive pro- 
grams for TRS-80, Apple 
II and CP/M systems (so 
your machine and ours 
can talk to each other 
error-free). You can 
switch between terminal 
and local mode while 
on line. 

What do I have to have to 
use MicroNET? 

The standard 300 baud modem. 
MicroNET has local phone 



service in most major cities (see 
below) and a reduced phone 
charge in over a hundred others. 

What is the cost? 

We've saved the best for last. 
There is a one-time hook-up 
charge of only $9.00! Operating 
time— billed in minutes to your 
VISA or MasterCharge card— is 
only $5.00 an hour. 

Want more information? 

Good. Write to us at the address 
below. We'll send you a full 
packet of information about 
MicroNET. 

CompuServe 

Personal Computing Division 
Dept. C 

5000 Arlington Centre Blvd. 
Columbus, Ohio 43220 

MicroNET is available via local phone calls 
in the following cities: Akron, Atlanta, 
Boston, Canton. Chicago, Cincinnati. 
Cleveland. Columbus. Dallas, Dayton, 
Denver, Detroit. Houston. Indianapolis, 
Los Angeles. Louisville. Memphis. West 
Caldwell (NJ). New York. Philadelphia. 
Pittsburgh. San Francisco, Stamlord (CT), 
St. Louis. Toledo, Tucson and 
Washington, D.C. 

Access to the MicroNET service is avail- 
able in 1 53 other cities for an additional 
charge of $4.00 per hour. 




but the really impressive stuff is in the back room." 
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Also remember that estate needs 
change constantly as a person ad- 
vances in age and family responsi- 
bilities. For example, take the family 
situation used in the illustration and 
project it into the future at ten-year 
intervals. Also assume normal career 
progression and no changes in present 
pay tables and survivor benefit rates. 
Without detailing the step-by-step 
computations, the results would indi- 
cate that surviving dependents could 

It is readily apparent 
that, standing alone, 
the survivors' benefits 
would not be adequate. 

be provided a monthly income equal to 
75% of the military member's estimated 
income at the assumed future dates of 
death, and the children's college costs 
could be met, if the estate (in terms of 
present dollars) were about $250,000 
at age 38, $200,000 at age 48, $23,000 at 
age 58, and that at age 68, nothing 
would be necessary since the survivor 
benefits (SBP and social security) 
would then exceed the 75%-of-income 
goal. 

Don't take estimates of needs 
many years from now seriously, 
though: they are of little value insofar 
as defining actual future requirements 
are concerned, simply because too 
many unforeseeable developments are 
bound to distort your assumptions, 
and they do not reckon with the 
inroads of inflation. Nevertheless, such 
projections do serve to show, in a 
rough manner, the relative changes in 
minimum requirements over a lifespan. 

Personal Estate Planning Program 

Rather than using paper, pencil, 
calculator and arithmetic chart paper 
to determine what your current estate 
should be and then repeating the entire 
process when you change one of the 
variables, I have developed a computer 
program to do all of this for you. Of 
course you must interact with the 
computer and supply values for the 
variables. As mentioned previously 
closed formulas for Present Value of 
Annuity and Present Value are used in 
lieu of storing table values. The 
following scenario is a typical session 
at the terminal: 

PERSONAL ESTATE PLANNING 

PROGRAM 

ENTER NUMBER OF DEPENDENT 

CHILDREN THAT ARE UNDER THE 

AGE OF 18? 

2 

YOU MUST ENTER AGE IN (YEARS) 

OF YOUNGEST CHILD FIRST 

ETC., AND AGE OF OLDEST CHILD 
LAST. 




AGE OF CHILD 1 
? 1 

AGE OF CHILD 2 IS 
?4 

ENTER THE AGE OF YOUR WIFE 
(ROUNDED TO NEAREST YEAR) ? 26 

ACCORDING TO CURRENT 
MORTALITY TABLES FOR FEMALES, 
YOUR WIFE WILL LIVE FOR AN 
ADDITIONAL 48 YEARS. JUST TO BE 
ON THE SAFE SIDE, WE WILL ADD 
5 YEARS AND SAY THAT SHE HAS 
AN ADDITIONAL 53 YEARS TO LIVE 

AN ESTIMATE OF THE MONTHLY 
INCOME YOUR SURVIVORS WILL 
NEED IS 

75% OF YOUR CURRENT INCOME 
AFTER TAXES. FOR YOUR PARTIC- 
ULAR SITUATION YOU MAY WANT 
TO INCREASE OR DECREASE THIS 
PLANNING ESTIMATE. 

ESTIMATE OF MONTHLY INCOME 
(AFTER TAXES) FOR SURVIVORS 
? 1400 

"A narrative display that describes 
Dependency and Indemnity Compen- 
sation (DIC) for active duty military 
personnel" 

DO YOU QUALIFY FOR DIC 
(1=YES. 2=NO) ? 2 

"A narrative description of survivor 
benefits resulting from social security 
payments" 

ARE YOUR SURVIVORS ELIGIBLE 
TO RECEIVE SOCIAL SECURITY 
BENEFITS 
(1=YES, 2=NO) ? 1 

"Prints a table by year of the maximum 
wages taxed for FICA" 

ON A SCRATCH PAD, ANNOTATE 
THE YEARLY CORRECTIONS FOR 
WAGES SUBJECT TO SOCIAL 
SECURITY. DON'T FORGET TO 
INCLUDE WAGE CREDITS FOR 
MILITARY SERVICE. 

ACCORDING TO THE RULES FOR 
COMPUTING THE AVERAGE 
MONTHLY WAGE, YOU ARE FIRST 
ASKED TO INPUT THE ACTUAL 
WAGES TAXED (PER YEAR) UP TO 
THE MAXIMUM IN ANY GIVEN YEAR. 
IF ACTUAL WAGES IN ANY YEAR 
WERE ZERO THEN ENTER A SMALL 
POSITIVE NUMBER, SAY 1 (NOT 
ZERO). 

HOW MANY YEARLY WAGES DO 
YOU WANT TO CHANGE? 

YOUR FIRST YEAR FOR WITH- 
HOLDING FICA WAS ? 1972 
YOUR LAST YEAR FOR WITH- 
HOLDING FICA WAS ? 1978 

THE RESPECTIVE YEAR AND 
WAGES TAXED ARE AS FOLLOWS: 



1972: 9000 1973: 10800 

1974: 13200 1975: 14100 

1976: 15300 1977: 16500 
1978: 17700 

CALCULATIONS OF YOUR 
AVERAGE MONTHLY WAGE (AMW) 
FOR SOCIAL SECURITY PURPOSES 
WILL NOW BE BASED ON THE 
FOLLOWING YEARLY WAGE 
INFORMATION. 



1972 
1974 
1976 
1978 









17700 



1973: 
1975: 
1977: 16500 



COMPUTED AMW = $1425 

"Narrative display of how AMW and 
number of dependents is used to 
determine the primary insurance 
amount (PIA) and maximum family 
benefit (MFB)." 

PIA = $548 MFB - $956 

"Display of monthly benefits for each 
year" 



ESTATE PROGRAMMING CHART 
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10 20 30 40 50 60 
YEARS AFTER DECEASE OF SPOUSE 



Until actually needed 
the estate could be 
invested and earnings 
from it used or added 
to principal. 

ENTER YEARLY PERCENTAGE GAIN 
ON ESTATE AFTER TAXES ? 5 

ASSUMING THE ABOVE PERCENT- 
AGE GAIN ON ESTATE, THE TOTAL 
AMOUNT NEEDED AT WAGE 
EARNERS DEATH TO FILL ALL 
FUTURE GAPS FOR NORMAL DAY 
TO DAY EXPENSES IS $172,875 

"Narrative display of other require- 
ments (e.g., outstanding indebted- 
ness, college expenses, etc.)" 

LET'S START WITHOUTSTANDING 
INDEBTEDNESS 

YOUR TOTAL DEBT OWED. FOR 
EXAMPLE HOUSE MORTGAGE, 
CAR INSURANCE, ETC ? 5000 

"Narrative display on college costs" 

ARE YOU PLANNING TO FINANCE 
YOUR CHILDREN THROUGH 
COLLEGE (1=YES. 2=NO) ? 1 
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FUNCTION PLOT 



$24.95 



APPLE INVADERS GAME 




TRIVIA BOX 



$19.95 




MOTO-CROSS 



$9.95 




FRUSTRATION 



$9.95 




GUIDED MISSILE 



$15.95 




LASER BLAST 



$9.95 





CASSETTE 



$15.95 




DISKETTE 



$19.95 



AND MORE... 

ACTIVE FILTERS i .$24.95 

ALIEN INVASION 9.9S 

AMPERSORT II 15.95 

APPLE ALLEY 6.95 

BASEBALL 15.95 

BATTLEFIELD 9.95 

BREAKTHRU 9.95 

CHECK BOOK 34.95 

DATABASE MAILER 29.95 

DEATH RACE 15.95 

EARTH QUEST 19.95 

HOME BUDGET 24.95 

HOUSEHOLD FINANCE 24.95 

MINI GENERAL LEDGER 59.95 

MOUSE HOLE 6.9S 

PEG JUMP 9.95 

RICOCHETTE 9.95 

STAR VOYAGER 15.95 

STUNT CYCLE 15.96 

All orders must include 3% postage and handling. California 
residents add 6% sales tax. VISA and MASTERCHARGE 
accepted. 

Apple II it a trademark of Apple Computer). Inc. 
CIRCLE 175 ON READER SERVICE CARD 



PROG RAM MA 
INTERNATIONAL. Inc. 
3400 Wilshire Blvd. 
Los Angeles, CA 9001 

(213)384-0579 
3841116 
384 1117 



l-CHING 



$15.95 




SHAPE BUILDER 

mm* 



$19.95 




BLOCKADE 



$9.95 




BOXING 



$9.95 




ALGEBRA I 



$15.95 




SPACE WAR 



$9.95 
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THE PLANETS 



$15.95 



Dealer Inquiries Invited 



SIRIUS 



$15.95 





Planning, cont'd. . . 


YOUR ESTATE REQUIREMENT SO 


ENTER LIFE INSURANCE 








FAR IS $200,468. THEREFORE AN 
APPROXIMATION OF THE STATE 
INHERITANCE TAX IS $4,009 


(FACE VALUE) 7 100000 

SECURITIES 

(PRESENT MARKET VALUE) 7 5000 






FOR CHILD 1 WHO IS 1 YEARS OLD. 
ENTER THE TOTAL COLLEGE 
EXPENSE (E.G., $18,000 OR $30,000, 


"Narrative description of attorney's 
(administrative) fees" 


SAVINGS 7 2000 

REAL ESTATE 

(PRESENT MARKET VALUE) 7 10000 






OR A VALUE THAT YOU FEEL IS 


COSTS OF ADMINISTRATION IS 


OTHER 7 






MORE APPROPRIATE) 
7 24000 

YOU HAVE A REQUIREMENT OF 


$10,023 


TOTAL ESTATE ASSETS $117,000 

TOTAL ESTATE REQUIREMENTS 
$214,501 




If invested to yield 5% 




$10,471 TODAY COMPOUNDED AT 
5% YEARLY IN ORDER TO COVER 
HIS COLLEGE EXPENSES OF 


compounded annually, 
what principal sum 


INCREASE YOUR ESTATE ASSETS 
BY $97,501 IN ORDER TO MEET 






$24,000, 17 YEARS FROM NOW. 


would be necessary at 


YOUR ESTATE REQUIREMENTS. 






FOR CHILD 2 WHO IS 4 YEARS OLD, 


the beginning of a 14 
year period, so that at 








ENTER THE TOTAL COLLEGE 
EXPENSE (E.G., $18,000 OR $30,000, 


NOTE: If we change the yearly per- 
centage gain on estate after 






OR A VALUE THAT YOU FEEL IS 


the end of 14 years the 
principal and earnings 


taxes from 5% to 8% and hold 






MORE APPROPRIATE) 


other variables constant, the 






7 24000 


total estate requirements turn 






YOU HAVE A REQUIREMENT OF 
$12,122 TODAY COMPOUNDED AT 
5% YEARLY IN ORDER TO COVER 


would equal $10,000? 


out to be $128,238 rather than 
$214,501. Only $11,238 is 






A SUMMARY OF YOUR ESTATE 


needed in order to meet estate 






HIS COLLEGE EXPENSES OF 


REQUIREMENTS IS AS FOLLOWS: 


requirements. 






$24,000. 14 YEARS FROM NOW. 


INCOME SUPPLEMENT $172,875 








A TOTAL REQUIREMENT OF $22,593 


INDEBTEDNESS 5,000 


Program Availability 






TODAY IS REQUIRED TO SATISFY 


COLLEGE FUND 22,593 


You can obtain a TRS-80 cassette 






FUTURE COLLEGE COSTS. 


OTHER RESPONSIBILITIES 


tape of either the 1 6K or 32K version of 






DO YOU HAVE OTHER RESPON- 


DEATH TAXES 4,009 
COSTS OF 
ADMINISTRATION 10,023 
TOTAL $214,501 


this program together with documen- 






SIBILITIES (E.G., SUPPORT OF 
PARENT) (1=YES. 2=NO) 
72 


tation for $14.95. Send your order to 
Larry H. Buss, 101 South U St., Apt. 1, 
Lompoc, CA 93436. Add an additional 








NOW THE QUESTION IS, DO YOU 


$4.00 for a source listing of the 






"Narrative description on federal and 


NEED MORE THAN YOU NOW HAVE? 


copyrighted program. In the near 






estate taxes. Assumes 2% for state 


TO ANSWER THIS QUESTION 


future, the program will be converted 






estate tax" 


PROCEED AS FOLLOWS: 


to run under CP/M in CBASIC 2. o 
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Let us Take you Elsewhen 



Designed OCT* □ V 
lor use on « I- I OI\ 



TREK-X 

Welcome to the most sophisticated Trek we've 
seen yet. We'll beam you aboard to command 
this mission at the helm of the Federation Star- 
ship Enterprise Your briefing follows: 

I. The Romulans and the Kllngons, normally an- 
tagonistic to one another, have decided to form 
an alliance. This alliance has but one end — to an- 
nihilate the United Federation of Planets. 

II. You have a dual mission: first, to explore the 
more distant realms of space; and second, to 
locate and destroy as many Romulan/Klingon 
warships as possible. Another ally of the 
Romulan/Klingon coalition may attack the Enter 
prise — you will receive further instructions. 

III. After you make fifty confirmed "kills," your 
mission will be accomplished, and you can head 
home. 

In Trek-x the vastness of space Is depicted by , 
a 12 x 12 x 4 matrix containing suns, planets, /t 
moons, and other celestial bodies. Unlike some 
two-dimensional "treks," Trek-X allows you to 
move in front of or behind suns, planets, and 
enemy spacecraft. Note also that quadrant 
boundaries are transparent to you, just as they 
would be in real life. You'll have both warp power 
and sub-light speeds at your disposal, and a 
detailed map of space will be available on de- 
mand. Your ship's computer will display the pres- 
ent alert condition (e.g., Green, Yellow, Red, or 
CRITICAL), and will keep track of your shield 
power and the number of hits you've received 
from enemy vessels. 

To add even more realism, optional sound ef- 
fects — phasor and photon torpedo fire, and their 
resultant explosions - have been included. Trek- 
X: more than |ust a game. For the 8K PET. Order 
No. 0032P $7.95. 
• A trademark of Commodore Business Machines Inc. 

Ask for Instant Software at a com- 
puter store near you or call Toil- 
Free 1-800-258-5473. 

. -, 



We can take you to the 15th century, to the states of Italy to rule the 
fortunes of many. . . we can take you to 1922 for a solo flight through 
the American Midwest. . . we can take you to the future, where you'll 
journey along the final frontier. . . the choice is yours. 



TRS-80* 



16K 
LEVEL II 




City 



.Zip. 



Q Chech 

a visa 



n Money order 



QAMEX 



□ Master Charge 



Card No. 



Expiration Dale. 



Signed. 



Order your Instant Soltware today! 



Quantity 


Order No 


Unit Colt 


Total Cost 
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In USA only Total Order 





Instant Soltwara Inc. oept ccoeo 

Peterborough, N M 03458 USA 



EVERY 

FLIGHT 

IS A SPECIAL 

DELIVERY 



OK, Ace, you survived everything that von Richthofen and the Flying Circus threw 
at you. Well, that was four long years ago - and yesterday's medals don't pay the 
rent. But just a minute, tiere's an ad: 

"Airmail Pilot wanted . . 

AIRMAIL PILOT 

You can almost smell the gasoline as the ground crew fuels your J-4 Jenny biplane to her 
26-gallon limit. Precious mail Is loaded into the cargo area, tagged for Chicago. The weather- 
man reports severe icing above 6,000 feet, so you know you have to keep the plane low. It will 
be a dangerous flight, but you knew that when you took the job. The mail must go through. So, 
in the tradition of Lindbergh and a hundred unsung heroes, you bravely turn your plane Into the 
wind. The engine roars. Suddenly you're aloft on the first leg of your journey. Dayton's socked 
in by fog. You change your course for Lucasville. Lightning zigzags the sky. A massive, fast- 
moving thunderstorm forces you to land in a cornfield. As the weather clears, your plane leaps 
once more into the sky. But even clear skies can cause problems -violent air currents buffet 
your fragile wooden aircraft. Your fuel is down to two gallons as Lucasville comes into sight. 
You make it! Refuel and head for Chicago. But you're not out of trouble yet. There's a wind 
shear at the Chicago airport. You have to land In a shifting crosswind. Can you make it? AIR- 
MAIL PILOT from INSTANT SOFTWARE. Unlike any other computer simulation you've ever ex- 
perienced. Challenging. Difficult. But never impossible. An event In a cassette. Crash or fly, it's 
so realistic, you can almost feel the wind. Requires a Level II 16K Order No. 0106R $7.95. 




SANTA PARAVIA AND FIUMACCIO 

The year is A.0. 1400, and you are the ruler of a 
tiny Italian city-state. You are ambitious by 
nature and intend to build your little city-state in- 
to a powerful kingdom. 

So begins Santa Paravla and Fiumacclo, 
where you and your fellow players compete as 
rulers of neighboring cities. You control the grain 
harvest, feed your people, set tax rates, exercise 
justice. Invest in public works and, of course, try 
to stay on the good side of the church. 



Life was short back then, and you'll have only a 
limited amount of time in which to build your 
kingdom. The lives of your serfs will depend on 
your decisions. If you act wisely, then your city- 
state will grow and you will acquire loftier titles. 
If your rule Is incompetent, your people will 
starve, and your city-state may be invaded by 
your neighbors. 

You can play the game yourself or set up the 
tournament version, which allows up to six 
players at a time to compete. Either way, you're 
sure to find your route to the throne a challenging 
and rocky one. 

How will you rule your kingdom? Will you be a 
benevolent ruler -an iron fist in a velvet 
glove -or will you become unscrupulous and 
follow the example set by Niccolo Machiavelll In 
his book on government, The Prince 1 ? Only you 
can answer that question - with Santa Paravia 
and Fiumaccio Order No. 0043R $7.95. 
* A trademark of Tandy Corporation 
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Important Lessons You Can Learn 
From Estimating Your Federal 

Income Taxes 




•.■ .>«.' 



. . « . • • » • -• » 



W. A. Tinsley 




Taxpayers are being forced into 
higher income tax brackets as a conse- 
quence of inflating prices and in- 
comes. The federal income tax tables 
are a series of steps. As a taxpayer's 
income rises to another step, federal 
taxes take an increasing amount of the 
income above that step. This is called a 
"progressive" tax. As your income 
progresses, the government's share of 
that income increases. The tax rate 
structure automatically establishes the 
government as a growth industry. Not 
all taxpayers understand this process. 

This computer program is useful 
in helping estimate how many after-tax 
dollars you really have left to spend, a 
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shocking figure for many persons 
these days. 

The most obvious use of this 
program is to help estimate whether or 
not you are likely to have a federal tax 
refund at the end of the year or 
whether, instead, you will be due to pay 
more federal taxes. If so, the program 
will suggest the amount that needs to 
be withheld each remaining paycheck 
in order to meet your tax liability. 
These estimates will be fairly accurate 
for salaried taxpayers. Taxpayers who 
have income subject to such things as 
capital gains, loss carryovers and 
income averaging will have less ac- 
curate estimates. 

A second use of the program is to 
estimate the effect of a second income 
in the family. This income might be 
from a "moonlight" job, or it may come 
from a wife working outside the home. 



To better measure the after-tax dollars 
added by the income, run the com- 
puter program twice; once with only 
one income and once with both 
incomes. How much greater are the 
total taxes with the second income? 
Subtract those taxes from the gross 
income provided by the second job. 
This provides an estimate of the 
additional dollars available after taxes. 
Also subtract extra costs of the job, 
such as transportation, household 
help, retirement deductions, child 
care, etc., to estimate the net dollars 
added by the job. 

There are other interesting esti- 
mates that can be made with the 
computer program. Married people 
often wish to find out whether it would 
pay to file separate returns rather than 
a joint return. Run the program both 
ways to see. Be sure you keep in mind 



1979 FEDERAL INCOME TAX ESTIMATE 

Purpose-- To estimate federal taxes and compare current withholding rates with the total estimated tax liability. 
The user should then have a better Idea as to whether a refund will be due or whether the withholding 

amounts should be Increased. F111 in the applicable boxes below to provide the information needed for 

your estimates. 
Needed Information: 





$ 


S 




$ 


$ 


1 

1 = Single 

2 > Head of Household 

3 = Married - Joint 

4 ■ Married - Separate 


2 

Total Income 
To Date 


3 

Withholding 
To Date 


4 

Number of 
Remaining 
Paychecks 
This Year 


5 

Gross Pay 
For Each 
Remaining 
Paycheck 


6 

Amount Withheld 
From Each Remaining 
Paycheck 


S 




S 


S 


7 

Estimated Year's 
Total Itemized 
Deductions l f 
You Itemize 


6 

Total Number of 
Tax Exemptions 
for the Family 


,9 

Total Adjustments to 
Income: Moving Expense, 
Employee Business Expenses 
Payments to IRA and Keogh, 
Alimony Paid and Interest 
Penalty due to Early With- 
drawal of Savings. 


10 

Total Credits: Child Care 
Investment Credit, Energy 
Credit, New Job Credit, etc. 
(See "Credit" Section of 
Form 1040) 



Other Income Sources 



Income To Date 


Amount Withheld 
To Date 


No. of Remaining 
Paychecks This Year 


Gross Check for 

Each Remaining 

Paycheck 


Amount Withheld for 
Each Remaining Paychec* 


$ 


S 




$ 


$ 























Note: Some of the income above may be subject to Self -Employment taxes. A husband and wife might each have 
self -employment income. If so, reenter the total income subject to self -employment tax. 

First Person's Total Self -Employment Income $ 

Second Person's Total Self -Employment Income * 
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Lessons, cont'd . . . 

the IRS requirements about itemized 
deductions when making both com- 
parisons. 

Some people are curious about 
the tax liability two single persons 
would have as compared with a 
married couple filing a joint return. 
Run the program both ways. Another 
useful comparison for the about-to-be 
divorced is to compare tax liabilities 
under married filing a joint return and 
single with possibly alimony deduc- 
tions. 

There are some other important 
points to understand while using this 
program. Computer results estimate 
the taxpayer's top tax bracket. This 
result is stated as the number of cents 
out of an additional dollar of income 
that would go for federal tax. However, 
if that dollar were a dollar of long-term 
capital gain income, the tax is reduced 
60%. This is an important fact as 
inflation pushes taxpayers into higher 
tax brackets. The computer result 
prints the long term capital gain rate as 
well as the ordinary income rate. You 
may be inspired to look for long term 
capital gain investments. 

This computer program should 
also make you more aware of the effect 
of "government approved spending." 
The computer results mentioned how 
many cents out of the next dollar 
added to income would go to taxes. 
However, if that dollar were spent for 
an item that Congress has decided 
should go untaxed, the government 
foregoes the tax and, in effect, sub- 
sidizes that expenditure by an amount 
equal to the top tax bracket for your 
income level. Government approved 
spending items are listed on Schedule 
A, Form 1040, and under the "Adjust- 
ments to Income" section on Form 
1040. If a taxpayer has enough ex- 
penditures to itemize, you can see by 
understanding Schedule A that Con- 
gress believes it is more important that 
some of your income dollars go for 
such things as interest, property taxes, 
gifts to qualifying charities and medi- 
cal expenses, rather than to federal 
taxes. Uncle Sam is in the insurance 
business, too. If you have a large 
casualty loss or if you have large 
uninsured medical expenses, the 
government will help by letting dollars 
spent on those items go untaxed. 
Again, how much federal subsidy is 
involved depends upon your top tax 
brackets. An estimate of your top 
bracket is provided as a computer 
program result. The government also 
subsidizes certain business expenses, 
moving expenses and alimony pay- 
ments. Check the "Adjustments to 
Income" section of 1040 for more 
detail. 

Tax credits are important features 



of federal taxes that should be well 
understood by taxpayers. Credits are 
very important in that a dollar of credit 
offsets a dollar of tax due. There are 
credits for child care, certain business 
investments, energy conservation and 
an "earned income credit" for low- 
income taxpayers. The computer 
estimates the earned income credit, if 
applicable. 

Investment credit for an item such 
as an automobile used for business 
purposes offers important tax ad- 
vantages. Not only can the taxpayer 
depreciate the cost of the auto, but a 
tax credit of up to 1 0% of the auto cost 
is also available for the tax year in 
which the car was purchased. It is a 



double benefit, an immediate tax offset 
or refund of up to 10% plus tax 
deductions of the purchase cost 
spread over the life of the auto. Again, 
these are important ideas taxpayers 
should understand while trying to keep 
as much of their pay raises as possible. 
It may be much better to spend those 
raises for items Congress feels are 
important and, hence, tax exempt. 

This computer program should 
encourage users to better understand 
the definitions and tax effects of the 
information needed to run it. Inflation 
has made income tax a significant item 
in all our lives. It will pay you to know 
more about your taxes. Using this 
program is a good first step. □ 
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141 INPUT-ENTER TAX IHF0RHHTION SEPWflTEt BY COmAS'.CKl;,D<2>.D<3>.D<4>.D<5>,D<6>,D<7>,D<8>.D(9>.D<19> 

145 IFDU»4PRINT'ERR0R IN TYPE-OF-RETURN FIGURE" GOTO 146 

151 INPUTIS DATA OK (V OR Nr.AW IFANI='N'0RAM='N0'G0T0 146 

161 INPUV1S THERE OTHER INCOME (V OR N)\AN$ IFnNM*N a ORfM-'NO'GOT02e6 

ire INPUT-ENTER OTHER INCOME FIGURES'. B(1>.B<2>.B<3;.B(4>.B(5> 

188 INPUT-IS MTR OK (V OR N)',RW IFflW='N'ORRM-'NO'GOT017e 

191 01 =GI ♦«•: 1 >»<B*3i«e<4> > TH=TIWB(2)«(B(3)«8(5) > G0T0168 

2*3 CI4I<t(2>«(««>«<3)) TN=THHK3)«<D<4)«0<6)) GT*G1 G2*GI-0(9> 

211 F0RI<1T032 REROS(I) NEXT! F0RI»1T038 READU(l) NEXTI 

226F0RI=1T038 READ»1<1> NEXT! 

23» IFD(l)=lTlCI€€=23eBaS£IFt)(l)=2THEND£=238B 

246 lFD<l»3THENK^34eeaSEIFD<l)MTHENK'176e 

23* x*<7>-c€ iFx:eTHENX=e 

266 GI=GI-X-D<9)-(D<8i«199e> 

466 !T4><1) ONITGOT0476.566.53e.53e 

476 IFSI<S(1>THENTX<6 BR=6 G0T0589 

481 F0RU1T029STEP2 J=I»1 II«I*2 BR=S(Ji»188 

491 1FS(1I)XJITHENTX=TX««G1-S(I))«S(J>) 

495 IFS<II):-GIG0T0586ELSETX=TX»(S(J)«(S<II>-S(1») 

491 KXTI TX=TX*«Gl-lBB38e)v 7) BR=?6 QOT056B 

581 IF&Klhl;THENTX=e BR=9 G0T0586 

565 F0RI'1T027STEP2 JM»1 11=1*2 BR=t)(Ji«198 

511 1FU<II»GITHEWTX=TX««GI-U<I»«U<J>> 

515 IFU<II>:<HTHENG0T0586ELSETX«TX«<U<J>»(U<II>-U<I>>> NEXTI 

525 1X=TX»((G1-16138B>« 7) BR*76 GOTO 586 

536 F0R1-1T029STEP2 J-Hl XC(I>-XM<1> lFD(l>=4THENXC<I>«XCU>/2 

535 :<C(J)=ai(J) NEXT1 IFG1C4M>THENTX=8 BR=« G0T0588 

552 F0R1*1T027STEP2JM«1 11*1*2 BR*XC(J»iee 

555 lFXC<ll»GITHENTX*TX»«GI-XC(n»XC(J» 

5*9 if;«<ii):«igoio599elsetx=tx»<xcu>«<xcui>-xc<i>>> nexti 

565 Bh<7l 

571 IFDU)«3THEKTX«m<(GI-2134ee>« 7>£LS£TX*TX»«GI-ie778B>.. 7) 

586 INPUT'DO YOU HRVE INCOME SUBJECT TO SELF EMPLOYMENT TAX (V OR N)'.RW 
581 OS IF RNM'N'CRMM'NO'GOTO 596 

562 INPUT'RRE ONE OR TWO PERSONS SELF-ElffLOYED (1 OR 2>\Z 

583 INPUT-ENTER ALL SELF EMPLOYMENT INCOME FOR THE 1ST PERSON'. SI 

584 SS-S1* 861 IFSSH854 9THEHSS-1854 9 

585 PRINT-SELF EMPLOYMENT TAX IS t'.SS TX-TX«SS IFZ'1G0T0596 

566 INPUT-ENTER ALL SELF EMPLOYMENT INCOME FOR THE 2» PERSON'. S2 22*S2» 981 1FZZ>1854 9THENZZ=18S4 9 

587 PRINT-SELF EMPLOYMENT TAX IS f.ZZ TX«TX«ZZ 

59* PRINT'VOUR ESTIMATED TOTAL TAX IS l\ IX 'BASED ON AN INCOME OF »-.6T 

595 PftUTTtSTIHATED TOTAL WITHHOLDING IS t'.TH 

6*1 PRim-VOUR ESTIMATED TAX CREDIT IS »-.D<16> AT=TX-D<16>-TN AV»<TX/GT>«16» 

61* IFTXMPRINT-YOUR AVERAGE TRX IS '.AV.'r.'OF YOUR TOTAL INCOME' 

615 IFTJO9PRINT-H0NEVER, IF YOU ADO ANOTHER DOLLAR TO YOUR INCOME, YOUR TAX IS \ BR. "CENTS. UNLESS THE INCOME IS LONG 

TERM CAPITAL CAM INCOME' 
617 RB=BR» 4 PRINT' IN THAT CASE THE AMOUNT IS \RB.- CENTS' 
63 IFATC6PRINT-Y0UR ESTIMATED REFUND IS l'.ABS(AT) G0T0678 
(46 PRIHT'THE ADDITIONAL TAX DUE IS I'.AT 
65* IFD<4»6THENP=AM><4> PRINT'lF V0U HAVE '.D(4>.' MORE PAYDAYS V0U NEED TO WITHHOLD l-.P,CHW(13). 'MORE DOLLARS PER 

PAY PERIOD' 
67* IFGZ>6PIC>GZa888BTHENEI=GZ« 1 lFGZ>588eA*GZ<19998T>£NE^5eB-<<&Z-5e8e>« 1) 
(75 IFGZ<*0R62;i98e9G0T0999 

68* PRINT-YOU HAY BE aiGIBLE FOR AN EARNED INCOME CREDIT OF IV El 
69* AT-ffl-EI IFAK6PRINT-IF EL1B16LE. YOUR REFUND HILL BE l-.BBS(AT) 
761 lFAnePRINT'IF ELIGIBLE. YOU NEED TO WITHHOLD A TOTAL OF I'.AT 
9)9 END 
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Stock Tracking Program 



Adventures In Investing : 
Stock Tracking Programs 



William K.Mason 



Stock trading, dividends and 
interest have been my main source of 
income for the last six years. I'm not 
broke but I haven't made a million 
either. When personal computers first 
began to appear I had a vague idea 
they might help me in picking 
stocks... butthey were kits. The thing 
I solder best is my left forefinger, so I 
waited. In due course little computers 
proliferated like rabbits and I got my 
feet wet with a 4K, level I TRS-80. My 
subsequent career in investing by 
computer can be divided into three 
parts. First, the time of grandiose 
fantasy; second, the time of deepen- 
ing cynicism; and third the time of 
healthy realism. 

In five minutes the answer 
came on the screen. It said, 
"IN NINE MONTHS THE 
DOW JONES STOCK 
AVERAGES WILL BE AT 
850." 

In the beginning there was mul- 
tiple regression. Multiple regression 
is a mathematical technique. Your 
goal is to find an equation relating 
variables you know (e.g., the con- 
sumer price index and the gross 
national product at the end of 1978) to 
the variable you want to know, such 
as the price of IBM at the end of 1979. 
Multiple regression gives you the 
equation that would have worked best 
in the past. 

You can buy software to do mul- 
tiple regression, but I decided to write 
my own. After a month I had a 
program that would fit into the 4K 
memory of the TRS-80 with enough 
room left over for 19 years of annual 

William Mason. Box 316, Hornltos, CA 95325. 




data concerning 12 variables. I picked 
12 variables from "Annual U.S. 
Economic Data" put out by the St. 
Louis Federal Reserve Bank. I typed 
in RUN, entered the data and the 
TRS-80 went to work. In five minutes 
the answer came on the screen. It 
said, "IN NINE MONTHS THE DOW 
JONES STOCK AVERAGES WILL BE 
AT 850." 

It's hard to describe the feeling of 
power you get when you know the 
future. For a month nothing disturbed 
me. But then one day when I was 
glancing through a back issue of 
Value Line Investment Survey, the 
roof fell in. The folks at Value Line 
know about multiple regression too! 



Even worse, their equation fit the data 
better than mine! I found that Value 
Line has been using multiple regres- 
sion and computers since the fifties, 
and that all sorts of firms have sprung 
up with words like "econometrics" in 
their titles. These outfits use com- 
puters a lot bigger than my 4K 
TRS-80. How could I compete with 
them? 

At first, frustration led to cyni- 
cism. As a nasty test I loaded all the 
information I could about the thirty- 
one stocks in my portfolio into the 
computer's 4K memory. Then I wrote 
the same type of information onto a 
small index card file, one card for 
each stock. I compared the two 
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CREATIVE COMPUTING 






THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80™* MICROCOMPUTER 



SOFTWARE 

FOR TRS-80 • 

OWNERS 



CQR1PIJTRQWICS 

MONTHLY NEWSMAGAZINE 

Practical Support For Model I & II 



MONTHLY 

NEWSMAGAZINE 

FOR TRS-80 ■ 

OWNERS 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNERS CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



PROGRAMS AND ARTICLES PUBLISHED IN OUR FIRST 12 ISSUES 
INCLUDE THE FOLLOWING: 

A COMPLETE INCOME TAX PROGRAM (LONG AND SHORT FORM) 

INVENTORY CONTROL 

STOCK MARKET ANALYSIS 

WORD PROCESSING PROGRAM (FOR DISK OR CASSETTE! 

LOWER CASE MODIFICATION FOR YOUR VIDEO MONITOR OR PRINTER 

PAYROLL (FEDERAL TAX WITHHOLDING PROGRAM) 

EXTEND 16 DIGIT ACCURACY TO TRS 80™" FUNCTIONS (SUCH AS 

SQUARE ROOTS AND TRIGONOMETRIC FUNCTIONS) 

NEW DISK DRIVES FOR YOUR TRS80™ 

PRINTER OPTIONS AVAILABLE FOR YOUR TRS 80'" 

A HORSE SELECTION SYSTEM*"ARITHMETIC TEACHER 

COMPLETE MAILING LIST PROGRAMS (BOTH FOR DISK OR CASSETTE 

SEQUENTIAL AND RANDOM ACCESS) 

RANDOM SAMPLING"*BAR GRAPH 

CHECKBOOK MAINTENANCE PROGRAM 

LEVEL II UPDATES—LEVEL II INDEX 

CREDIT CARD INFORMATION STORAGE FILE 

BEGINNER'S GUIDE TO MACHINE LANGUAGE AND ASSEMBLY 

LANGUAGE 

LINE RENUMBERING 

AND CASSETTE TIPS. PROGRAM HINTS. LATEST PRODUCTS 

COMING SOON (GENERAL LEDGER. ACCOUNTS PAYABLE AND 
RECEIVABLE. FORTRAN 80. FINANCIAL APPLICATIONS PACKAGE 
PROGRAMS FOR HOMEOWNERS. MERGE TWO PROGRAMS 
STATISTICAL AND MATHEMATICAL PROGRAMS (BOTH 
ELEMENTARY AND ADVANCED) AND 



NOTICE 

Pursuant to a consent judgement entered in the United States District Court for the District of Massachusetts, H & E 
Computronics, Inc. hereby gives notice that it is not and has never been an authorized Radio Shack dealer or outlet, 
that products or services offered for sale or sold by it are not and were not approved or warranted by Radio Shack or 
Tandy Corporation, and that only products or services purchased directly from Radio Shack or its authorized retail 
outlets carry the warranty of Radio Shack and Tandy Corporation. If you have placed an order, still outstanding, with 
H & E Computronics, Inc., for products or services, in the belief that those products or services were manufactured, 
approved or warranted by Radio Shack or Tandy Corporation, you may cancel that order and obtain a full refund of 
any money paid or deposited, simply by writing to the address below. 



fSS* 



WORD PROCESSING PROGRAM (Cassette or Disk) 

For writing letters, text, mailing lists, etc . with each new subscriptions or renewal 

LEVEL II RAM TEST (Cassette or Disk) 

Checks random access memory to ensure that all memory locations are working properly 
DATA MANAGEMENT SYSTEM (Cassette or Disk) -Complete die management (or your TRS 80™ 



SEND FOR OUR 36 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS-80"* PROGRAMS 
AVAILABLE ON CASSETTE AND DISKETTE). $2.00 OR FREE WITH EACH SUBSCRIPTION OR SAMPLE ISSUE. 



iCQMRJTRQNXCS: 

Hill »!«■!■ ti AmrATt>A — ■■»■ ■ 



Bo» 149 



N.w City. N«w York 10956 



^24 



HOUR 
ORDER 
LINE 
(914) 425-1535 



^T^^ 



ONE YEAR SUBSCRIPTION $24 

START MY SUBSCRIPTION WITH ISSUE _ 
NEW SUBSCRIPTION RENEWAL 



TWO YEAR SUBSCRIPTION $48 



SAMPLE OF LATEST ISSUE $4 



(•1 July I97S • »7 January 1979 • "12 Jun. 1979 • >18 January 19801 



CREDIT CARD NUMBER 

SIGNATURE 

NAME 

ADDRESS 



. EXP DATE 



... ADD J6/YEAR (CANADA. MEXICO) ADD J 12 YEAR AIR MAIL-OUTSIDE OF US A . CANADA & MEXICO ••• 

I * TRS-80*" IS A TRADEMARK OF TANDY CORPORATION circle 132 on reader service card 
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Stock Tracking, cont'd.. 

systems in three categories: access 
time (including loading tape into 
memory), amount of information 
stored and cost. The card file won in 
each category. I tried to give the com- 
puter to my wife, suggesting she 
could store her recipes in it. She pre- 
ferred index cards, pointing out a 
category I hadn't thought of: port- 
ability around the kitchen. I went to 
bed that night resolved to phone my 
brother-in-law in the morning and get 
him to take the silly thing off my 
hands. 

During the night, however, I 
remembered a question my wife had 
asked. Did the profits we made on the 
Del Monte tender offer make up for 
the wad we had dropped in the Marine 
Midland debacle? She knew the 
answer, of course. The question was 
her way of taking a Jab at Uncle 
Herbie. Uncle Herbie had recom- 
mended Marine Midland. We argued a 
lot about Uncle Herbie's stock re- 
commendations. 

TheTRS-80 could compute 
the value of each of these 
accounts once a month 
and after a while I would 
know who was outper- 
formingwhom. 

Then I saw the light. I could divide 
my thirty-one stock portfolio into 
groups, or "Accounts," as I decided 
to call them. Account number 1 would 
be stocks recommended by Uncle 
Herbie, account number 2 would be 
stocks selected by my wife, and so 
on. The TRS-80 could compute the 
value of each of these accounts once 
a month and after a while I would 
know who was outperforming whom. 

But there was a catch. Suppose 
we had $10,000 invested in stocks 
recommended by Uncle Herbie, then 
we sold $2000 of his stocks to pay 
taxes. Uncle Herbie's account would 
have dropped by $2000 but that 
wouldn't be his fault. To fix this I 
pretended each account was a tiny 
mutual fund with an arbitrary initial 
number of shares, for example, 1000 
each. Then each share in Herbie's 
"fund" was worth $10,000 divided by 
1000 or $10. I call this the "account 
value per share." Every time I put 
money in or took money out of the ac- 
count I changed the number of shares 
or "account divisor" so the account 
value per share remained the same. If I 
took $2000 out of Uncle Herbie's 
account I would change the account 
divisor to 800 so that the account 



18 REM: STOCK MONITOR BVH.K. MASON 
12 REM: N-NUMBER OF STOCKS, M- NUMBER OF BONDS 
14 REM: ft<N+l> THROUGH ft <N*4> - ftCCOUNT OIUISORS 
20 N-15: M-3 

25 ft<N+i>=ieee; a<n*2>»i000: a<n*3>-1000: A(N+4)*io0e 

30 FOR L-l TO N A<L> =0 NEXT L 
40 CLS: PRINT: PRINT PRINT "CHOICES": PRINT 
50 PRINT "1« LIST ACCOUNT NUMBERS" 
"2» INPUT CURRENT PRICES" 

"3- LIST STOCKS WITH CURRENT PRICES AND PROFITS" 
"4- FIND CURRENT UALUE AND UALUE PER SHARE OF AN 



52 PRINT 
54 PRINT 
56 PRINT 
ACCOUNT" 
58 PRINT 
60 PRINT 
62 PRINT 
70 PRINT 



",;:," CURRENT UALUE=";U. PRINT 
UALUE PER SHARE-">U/A<N*X> 



"<X 



"PRICE BOT", "DATE BOT" 



"5- LIST STOCKS WITH ORIGINAL PRUCHASE DATA" 
"6- LIST ACCOUNT 0IUIS0R3/FIN0 NEW ONES" 
"7» LIST BOND AND CASH DATA" 
INPUT "WHAT IS YOUR CHOICE"; J : CLS 
80 ON J GOTO 90, 120, 160, , 180, 210, 230, 250 
90 PRINT PRINT. PRINT PRINT "ACCOUNT NUMBERS" PRINT 
100 PRINT "l*STOCKS RECOMMENDED BV MR. X" 
102 PRINT "2-STOCKS CHOSEN BV METHOD V" 
104 PRNT "3"ST0CKS I SHOULD HAUE SOLD" 
106 PRINT "4-ALL STOCKS ON MV LIST" 
110 GOSUB 260 GOTO 40 
120 FOR L-l TO N 
130 READ A*, B*, S, P, A 
135 PRINT "ENTER PRICE OF ", A# 
140 INPUT A<L> NEXT L 
150 RESTORE GOTO 40 

160 B-1:C*1 G03UB 170 GOSUB 260 : CLS 
162 B-12-C-N GOSUB 170. GOSUB 260 
164 RESTORE GOTO 40 

170 PRINT-STOCK", "DATE BOT", " "CURRENT PRICE", "X PROFIT" 
172 FOR L»B TO C 
174 READ A*, B#, S, P, A 

176 PRINT A», B*, A<L> INT< 10O*<A<L>/P-1 > > 
178 NEXT L RETURN 
180 GOSUB 190 
1 82 PR I NT : PR I NT " ACCOUNT 
184 PR I NT "ACCOUNT ", X; ' 
186 GOSUB 260 GOTO 40 
190 INPUT "ENTER ACCOUNT NUMBER 
192 U-OFOR L-l TO N 
194 REAO A*, 6*, . S, P, A 
196 IF<X«*>»<.X-4> THEN U-U+S*ft<L> 
198 NEXT L 
200 RESTORE RETURN 

210 B«l C» 11 GOSUB 220 : GOSUB 260. CLS 
212 B-12 C=N GOSUB 220 GOSUB 260 
214 RESTORE GOTO 40 
220 PRINT "SHARES", "STOCK" 
222 FOR L=B TO C 
224 READ A*, B«, S, P, A 
226 PRINT S, A», P, B* 
228 NEXT L RETURN 

230 PR I NT "ACCOUNT NUMBER", "DIUISOR" 
232 FOR L=l TO 4 PRINT L, A<N+L> : NEXT LPRINT 
234 INPUT"DO VOU WISH TO FIND NEW DIUISOR? 0-NO, 1-YES"; V 
236 IF V=0 THEN 40 
238 PRINT GOSUB 190 

240 INPUT"ENTER DOLLAR AMOUNT IN < + > OR OUT<-> OF ACCOUNT", V 
242 PRINT 

246 PRINT"NEW DIUISOR FOR ACCOUNT "; X, "»'\ V*A<N*X>/'U*ACN+X> 
248 GOSUB 260 GOTO 40 

250 FOR L«l TO N READ A», B*, S, P, A : NEXT L 
252 PRINT"AMOUNT", "NAME", "DATE DUE" 
254 FOR L-l TO M READ A*, B», S 
256 PRINT S, A*, B* NEXT L 
258 GOSUB 260 RESTORE GOTO 40 

260 PRINT INPUT "PRESS ENTER TO CONTINUE"; A* RETURN 
480 REM; FORMAT FOR STOCK DATA IS 

490 REM: STOCK NAME, DATE BOT, SHARES, PRICE PER SHARE, ACCOUNT « 
500 DATA ATT, 3-4-76, 200, 52, 2 

ABC, 1-2-30, 100, 10, 1 

DEF, 1-2-70, 100, 10,2 

GHI, 1-2-78, 100, 10, 3 

JKL, 1-2-70, 108, 10, 2 

MN, 1-2-70, 100, 10, 2 

OP, 1-2-70, ISO, 10, 1 

OR, 1-2-70, 100, 10, 1 

ST, 1-2-70, 100, 10,3 

UU, 1-2-70, 100, 10, 3 

WX, 1-2-70, 100, 10, 1 

YZ. 1-2-70, 100, 10, 1 

AB, 1-2-70, 10O, 10, 2 

CD, 1-2-70, 100, 10, 3 

IBM, 2-3-70, 50, 150, 2 
540 REM FORMAT FOR BOND DATA IS 
550 REM : NAME, DATE DUE, AMOUNT 
560 DATA WAR LAM, 4-1-85, 10000 
562 D. XVZ SAUINGS, NONE, 5000 
564 D. ABC, 1-2-80, 18000 



510 


D. 


512 


D. 


514 


D. 


516 


D. 


518 


D. 


520 


D. 


522 


D. 


524 


D. 


526 


D. 


528 


D. 


530 


D. 


532 


D. 


534 


D. 


538 


D. 
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Stock Tracking, cont'd.. 

value per share would still be $10 
= $8000/800. The account value per 
share varied only if the stocks in the 
account went up or down (mostly 
down in Herbie's case - why is my wife 
always right?). 

Quickly I whipped up my Level I 
stock tracking program which is 
included in this article. Although the 
stocks listed in the data statements 
are mostly fictitious they provide 
good examples. If you look at 
instructions 50 through 70 you can 
see the choices offered by the pro- 
gram. 

Four sample accounts are listed in 
instructions 100 through 106. Taking 
them in reverse order (starting with 
account number 4 which is all stocks 
on my list) is the most important, of 
course. Since I'm the nervous type I 
find its current value once a week. 

Account number 3 (stocks I 
should have sold, but didn't), palli- 
ates a standard investor problem. You 
have a big loss on a stock and you 
know you should dump it, but you 
can't bring yourself to do so. Sell it to 
your computer by putting it in 
account number 3. If your judgement 
is good the value per share of this ac- 
count will decline while the value per 



share of your other accounts ad- 
vances. If your judgement isn't good 
the record will speak for itself. 

Account number 2 is stocks 
chosen by Method Y. Method Y can be 
low price-earnings ratios, high past 
earnings growth, companies incor- 
porated before the Age of Aquarius, 
coin flipping, or anything. 



We switched to a firm 
using big computers with a 
vast data base. They do the 
multiple regression for us. 
So far their picks are 
running neck and neck with 
coin flipping. 



Account number 1 is stocks 
recommended by Mr. X. Our Mr. X is 
no longer Uncle Herbie. We switched 
to a firm using big computers with a 
vast data base. They do the multiple 
regression for us. So far their picks 
are running neck and neck with coin 
flipping. 

Finally, a couple of technical 
remarks. The stock list is on Data 
statements as part of the program. 



The format is: DATA stock name, 
date bought, number of shares, 
purchase price per share, number of 
account it belongs in. When you add 
stocks or take stocks out of an 
account you must change the account 
divisor and put in new data state- 
ments. The steps are : 

1. Input the prices of the stocks in 
account just before the change 
(use choice 2). 

2. Select Item 6. The computer 
asks you for the account 
number and dollar amount in or 
out of the account. Then it 
gives you the new account 
divisor. 

3. Put the new account divisor 
into instruction 25 in place of 
the old one. Also, if you 
change the number of stocks in 
the list you must change 
instruction 20. 

4. Put in the new data state- 
ments. 

Well, there it is. This program 
provides a realistic use for the 4K 
computer in investing. For me it 
justifies the purchase of a TRS-80. In 
fact, after recording the value per 
share of each account for many 
months I think I have found a stock 
picking method better than coin 
flipping. But that's another story. D 



EVEN COMPUTERS GET THE BLUES 



Has your TRS-flO been sluggish lately? Slow to respond? Had 
excessive keyboard bounce? 

The problem might be low voltage, or a BASIC misunderstanding or 
IPON POOR SOFTWARE! 

Do you serve your TRS-AO's meals on paper sheers? Do you 
(shudder) write it yourself? Recent studies indicate that keyboard- 
feeding causes MALIGNANT BUGS! 

CLOAD Magazine is published monthly on a magnetic IRON OXIDE 
tape, wound up inside a C-30 cassette. Now you may ask "Why 
bother?", but I can assure you that our computer cassettes are 
DIRECTLY readable, I repeat DIRECTLY readable by your computer. 
We have Thrills. Variety, and Absurdity. We have every program your 
computer has ever wanted to run after a hord day at the job. We 
even include our infamous "yeHow sheets" with every issue, filled with 
lies about the TRS-BO computing scene. 

12 Monthly cassette issues . S36.00 " 

(over 60 programs) 

Single issues S 3.50 * 

BestofCLOAD SKJ.OO* 

(9 programs w/ listings) 

' CA residents please odd 6% to non-subscription orders 
Please write for overseas rates 

Master Charge / Visa Welcome. Also Cash & Gold 

LrLUHU MAGAZINE, inc 
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For buying, selling and renting property 



Real Estate Analysis 



A comprehensive look at real estate 
investment techniques. The pro- 
gram was written for a TRS-80 but 
does not use any special graphics. 



The ideal investment is where you 
commit funds (preferably other 
people's funds) with the intention of 
minimizing risk, and safeguarding 
your capital while earning a generous 
return, (preferably a tax-free return), 
and at the same time being able to 
control, to the best of your ability, the 
outcome of your investment. 

In our opinion, real estate is the 
only investment which, when bought 
properly, sold properly and managed 
correctly, can fit that description. 
When you consider the many factors 
working in real estate's favor, you will 
come to realize, as we did, that real 
estate is as close to a guaranteed 
investment as you can get. 

To fully understand how real 
estate can serve as the perfect invest- 
ment vehicle, take each advantage and 
consider it: 

Safety 

When was the last time you heard 
that someone had sold his home for 
less than he paid for it? Properly 
selected real estate is one of.the safest 
investments you can make. Most real 
estate owners realize that their prop- 
erty values are continuing to increase 
every year. Real estate will hold or 
increase its value, and avoid a down- 
slide loss better than almost any other 
form of investment. The demand for 
land will always continue to grow. 

Also, you will never awaken one 
morning and find your investment 
stolen, lost, missing, or the "company 
has gone bankrupt." You can always 
see the property and no one can move 
it away. 



Mayer D. Liebman, 8105 Buckspark Lane East. 
Potomac. MD 20854. 




Mayer D. Liebman 



Appreciation 

Real estate, and most notably the 
single family house, has been appre- 
ciating at an average rate of 10 per cent 
for the last few years. Improved real 
estate continues to increase in value 
because of the demand for housing, 
increases in construction labor costs 
and increases in the cost of raw 
materials. 

Real estate is as close to a 
guaranteed investment 
as you can get. 

Yield 

Sound real estate investments 
have always provided a larger overall 
yield than almost all other investments. 
First, we have the consistent real estate 
appreciation. Second are the tax 
advantages such as depreciation and 
capital gains treatment. 

Many experienced real estate 
investors like to see at least a 20 per 
cent return on their investment (in- 
cluding cash flow, market value appre- 
ciation and tax savings). And it is 
obtainable. 

Liquidity 

It has been written many times that 
real estate is not liquid. This is true to a 
certain extent. Of course, real estate is 
not as liquid as a savings account, but 
properly priced single family homes 
can be sold in from 30 to 90 days. Much 
delay in the selling of a piece of real 
estate could be avoided if the asking 
prices were set realistically. 

Leverage 

Leverage means investing the 
least amount of capital possible when 
acquiring a property to earn the 
maximum percentage return on that 
investment by obtaining a mortgage 
(financing) for the highest practical 
amount. 

As has always been characteristic 
in real estate investment, you can 
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obtain financing for a part of the 
purchase price. The owner of a piece of 
real estate can control his investment 
with as little as 10 to 20 per cent of the 
purchase price being invested. 

No alternate investment allows 
such a low down payment without the 
corresponding disadvantages. Real 
estate leverage allows the investor to 
receive the entire benefit of the 
property's appreciation in the market 
and depreciation of the entire value of 
the property for tax purposes. Under 
the new tax law, it is the only invest- 
ment with those advantages. 

Depreciation 

Depreciation of real estate is the 
one factor that produces the high 
yields which are not found in other 
investments such as stocks and bonds. 
It is a tax break which gives you the 
right to deduct a certain percentage of 
the building's value each year (but not 
the land, since in theory land does not 
depreciate). 

This is a non-cash expense. 
Actually, as the property is increasing 
in value, you are deducting a portion of 
its value on your tax form. If you buy 
the property from someone who has 
already depreciated it, you can start 
the depreciation cycle over again, as 
can the person who buys the property 
from you. 

Depreciation, because it is an 
expense which costs you no money, is 
what real estate investors look for as a 
tax shelter. The effect of depreciation 
is to shield a part of your ordinary 
income from taxes. 

Why single family houses, instead 
of raw land, shopping centers, or multi- 
unit dwellings? Because you may 
already be a homeowner yourself. You 
have an idea of what to look for in a 
house. You can easily understand the 
finances involved as they are quite 
similar to the financing you did on your 
own home. They are easily rented, 
easily maintained and can be managed 
by yourself. Dollar for dollar they 
usually out-perform all other modes of 
real estate for appreciation. 

CREATIVE COMPUTING 






Real Estate, cont'd... 

Just think of how much you paid 
for your home and compare it to the 
price your neighbor just got for the 
home he recently sold. The single 
family home is affordable, depreciable, 
rentable, easily maintained and 
managed and, most important of all, 
appreciates over and above recent 
inflation. 

In buying a single-family house as 
an investment, you'll have to consider 
many things, among them: 

• Location 

• Condition of the house and utilities 

• Price 

• Financing 

• Projected return on investment 

In this short article, we have time 
to consider only what is the most 
difficult to analyze and yet the most 
important in weighing the investment 
— that is, your projected return. This is 
what is known as "Property Analysis." 
This is where you record all the 
pertinent facts about your new found 
property down on paper so that you 
can see in black and white what this 
investment is going to produce. And 
you can use these same figures to 
compare it with other potential pur- 
chases. This is the "bottom line" in any 
real estate investment. 

The single family house, 
has been appreciating at 
an average rate of 10 per 
cent for the last few 
years. 

Suppose you spot a single-family 
attached house (known commonly as a 
"townhouse") with an asking price of 
$40,000. The down payment is 10 per 
cent, or $4,000, and you expect you 
could rent it for $350 per month, plus 
utilities. You can assume the existing 
mortgage on the house for $32,000 @ 
8% for 30 years (Note: The lower rates 
on existing mortgages are one of the 
advantages of buying an older house. 
New mortgages on recently con- 
structed houses now range over 10%), 
and the seller will take back a 2nd 
mortgage of $4,000 at 1 1% for 8 years. 
Analyze it as follows while referring to 
Table 1: 

Line 1 — Gross Income: This is the 
monthly rental that you expect to get 
for the property multiplied by 12 to 
arrive at the annual amount of rent that 
you plan to receive. 

Enter: $350 x 12 = $4,200 

Line 2 — Vacancy: This is the 
percentage that will have to be sub- 
tracted from the gross income figure to 
arrive at the more realistic income 
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figure. The best average is about a 5% 

vacancy factor. That is, one month out 

of 20 you will fail to rent the property. 

Enter: 5% of $4,200 = $210 

Line 3 — Gross Operating Income: 
This is the amount obtained by sub- 
tracting the vacancy factor from the 
gross income amount: This figure 
represents the actual amount of money 
you have to work with. 

Enter: $4,200 - $210 = $3,990 

Line 4 — Expenses: You will now 
have to list the expenses that will be 
incurred in renting and maintaining the 
property. 

Line 5 — Taxes: On this line you 
should enter the real estate taxes that 
are levied on the property. In our area, 
this property would carry about $700 in 
taxes. 



Line 6 — Insurance: The insurance 
that you normally will need on a rental 
property are fire, vandalism and 
malicious mischief. You need these to 
protect the actual improvements on 
the property. You will also need 
personal liability insurance to protect 
yourself against a negligence claim. 
The cost for the year will be about 
$100. 

Line 7 — Utilities: Normally there 
will be no entry on this line since the 
tenant will be paying the costs of 
utilities. However, you may have to pay 
a minimal amount during the period of 
time the property is vacant and waiting 
for a tenant. Depending on the time of 
year when the property is vacant will 
determine the costs. During the sum- 
mer we can estimate about $20 for 



PROPERTY ANALYSIS 

Address of property 3U Park Street 

Purchase price $U0000 

First mortgage $32000 3 8% for 30 years 

Second mortgage $i»000 3 11% for 8 years 

1. Gross Income $1*200 

2. Less: Vacancy $210 

3. Gross Operating Income $3990 

k. Less expenses: 

5. Taxes $700 

6. Insurance $100 

7. Utl 1 itles $20 

8. Advertising $60 

9 . Managemen t $0 

10. Civic Association $100 

11. Maintenance $300 

12. Cleaning Services $100 

13. Legal S Accounting $150 

1U. Total Expenses $1530 

15. Net Operating Income $2U60 

16. Less Loan Payments: 

17. 1st Mortgage $32000 

2nd Mortgage $U000 

18. Interest $3000 

19. Principal $571.66 

20. Total loan payment $3571.66 

21. Gross Spendable Income -$1111 

22. Plus: Principal Payment(s) $571.66 

23. Gross Equity Income -$5i»0 

2U. Less Depreciation $1333.33 

25. Taxable Income $-1873.33 

Tax Analysis 

1. Gross Equity Incomedine 23) -$5l»0 

2. ♦ Tax consequences $71*9.33 

3. After Tax Income $209.33 

l». ♦Growth $3200 

5. Net Equity Income $31*09 

6. Rate of return $56.82% per year 

Formul a : 



Net Equi ty Income 
Down Payment ♦ Closing Costs 



X 100 



Table 1 



61 



^H 



■1 



Real Estate, cont'd... 



utilities when the air conditioning will 
not have to be used. 

Line 8 — Advertising: This would 
be the costs of placing ads in news- 
papers to try and secure a tenant. We 
would estimate a cost of about $60 for 
advertising in the example. 

Line 9 — Management: Since we 
recommend that for maximum profit 
that you manage your own property, 
there normally will be no entry on this 
line. If you plan on using a manage- 
ment concern, then you can plan on 
paying a management fee of about 7% 
per year on the gross rental receipts. 

Line 10 — Civic Association: Many 
developments have a civic association 
fee. This may cover maintenance of 
common areas, snow removal, etc. The 
costs on this house will be about $100 
per year. 

Line 12 — Cleaning Services: Nor- 
mally when you are starting out with 
your first properties you will be doing 
your own cleaning of the house and 
your own painting, at least of the 
interior. We would estimate the initial 
cleaning of the house to be about $100. 



Line 13 — Legal and Accounting: 
The accounting fees should be about 
$150 per year. This is providing 
nothing serious occurs and you don't 
have any legal problems. 

Properly priced single 
family homes can be sold 
in from 30 to 90 days. 

Line 14 — Total Expenses: =$1 ,530 

Line 15 — Net Operating Income : 
This is the figure that is obtained by 
subtracting the figure for the total 
expenses from the figure that you 
obtained from the gross operating 
income. This figure is $2,460. 

Line 16 — Less Loan Payments: 
Now you will have to subtract the loan 
or mortgage payments from the net 
operating income. 

Line 17 — On this line is indicated 
the amounts for the different mort- 
gages that may be placed on the 
property. 

Line 18 — On this line will go the 
yearly interest that you are paying on 
the property. The interest on the 
second mortgage for the first year is 
$440. The interest on the first mortgage 
for the first year is $2,560. 



•** PROPERTY ANALYSIS *** 

3l» PARK STREET 

PURCHASE PRICE: $40,000 

FIRST MORTGAGE: $32,000 AT 8.00 % FOR 30 YEARS 

SECOND MORTGAGE: $4,000 AT 11.00 % FOR 8 YEARS 



GROSS INCOME EXPECTED 

VACANCY LOSS 

GROSS OPERATING INCOME 

TAXES 

INSURANCE 

UTILITIES 

ADVERTISING 

MANAGEMENT 

CIVIC ASSOCIATION 

MAINTENANCE 

CLEANING SERVICE 

LEGAL AND ACCOUNTING 

TOTAL EXPENSES 

NET OPERATING INCOME 

INTEREST AFTER ONE YEAR 

PRINCIPAL AFTER 1ST YR. 

TOTAL LOAN PAYMENT 

GROSS SPENDABLE INCOME 

GROSS EQUITY INCOME 

DEPRECIATION 

TAXABLE INCOME 



TAX C0NSEQUENSES 
AFTER TAX INCOME 
APPRECIATION 
NET EQUITY INCOME 

RATE OF 



... TAX ANALYSIS 



RETURN 56.82 % PER 



$4,200.00 

$210.00 

$3,990.00 

$700.00 

$100.00 

$20.00 

$60.00 

$0.00 

$100.00 

$300.00 

$100.00 

$150.00 

$1,530.00 

$2,460.00 

$3,000.00 

$571.66 

$3,571.66 

-$1,111.66 

-$540.00 

$1,333.33 

-$1,873.33 

$749.33 

$209.33 

$3,200.00 

$3,409.33 

YEAR 



This is an actual printout ot the Property Analysis as produced by the 
enclosed program. 
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Line 19 — On this line will go the 
yearly principal payments. To deter- 
mine the amount of the yearly mort- 
gage payment that goes towards the 
principal is to subtract the interest 
from the total mortgage payment. On 
our property, the total yearly payment 
for the second mortgage is $745.01. 
For the first year the principal will be 
$745.01 - $440 = $341.01. The total 
yearly payment can be obtained from a 
table of loan amortization or from a 
computer program. The amount of 
principal reduction for the first mort- 
gage will be the total yearly mortgage 
payment of $281 7.67 - $2560 = $257.67. 

Line 20 — Total Loan Payment: 
This line is the summation of the 
interest and principal payment or the 
total mortgage payments for the year 
for both the first and second mort- 
gages. 

Line 21 — Gross Spendable In- 
come: By subtracting the mortgage 
payments from the net operating 
income will give us the gross spend- 
able income or "cash flow." 

In our situation the total loan 
payments as noted above are $3571 .66. 
Also, as noted on Line 15, the net 
operating income is $2460. If we 
subtract our loan paymentsof $3571. 66 
from the net operating income of $2460 
leaves a negative <$1111>, or you will 
have to come up with $92 per month to 
carry your investment. How can you be 
on your way to financial security if you 

Depreciation is what real 
estate investors look for 
as a tax shelter. 

have to come up with almost $100 per 
month to let someone else live in your 
house? Since we are planning for the 
appreciation of the property and the 
retirement of the principal of the loan, 
this monthly payment can be looked at 
as a forced saving. The only thing you 
have to remember is that you will be 
making this extra payment per month 
in the early years of the investment. As 
inflation drives prices up a smaller 
portion of your rent will go to the 
mortgage payment. 

Line 22 — Plus Principal Payment: 
At this point you will add back the 
principal payments. Since this money 
is going to retire the loans you are 
really not spending the money but are 
saving it. Thus, go to line 23 to actually 
find out what the property is costing. 

Line 23 — Gross Equity Income: 
By adding the gross spendable income 
which is a negative <$1111> plus the 
principal payments which are $571.68 
will give us a negative <$540>. Thus, 
the actual cost to carrying the property 
is $540 divided by 1 2 or $45 per month. 

Line 24 — Less Depreciation. As 
noted elsewhere, depreciation is a 
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$1595 

(soft cover) 



Written by the author of your Level I Users Manual. LEARNING LEVEL II picks right up where the Level I 
Manual leaves off. It also supplies the changes needed to make the Level I Manual compatible with your 
Level II TRS-80. 

LEARNING LEVEL II covers all Level II BASIC beyond Level I. plus much more. It shows you how to use 
the Editor, explains what the many error messages are really saying, and leads you thru conversions of 
Level I programs to Level II. 

Dual cassettes, printers, the Expansion Interface with clock and other features are explained in the same 
easy-to-learn style that made the Level I Manual famous. LEARNING LEVEL II was created specifically 
for your Level II TRS-80! 
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Yes, I want to really learn how to use Level II! 

COMPUSOFT® PUBLISHING • 8643 CC Navajo Rd. • San Diego, CA 92119 



Please send 



copies of 



LEARNING LEVEL II. My check for $15.95 + $1.45 
P&H is enclosed. (CA addresses add 6% sales tax). 

I understand my order will be shipped promptly and 
there is a 30 day money-back guarantee. 
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STATE 

ZIP CODE 



I 
I 
I 



CIRCLE 122 ON READER SERVICE CARD 
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means that the government gives you 
to recover your original investment. In 
theory, the government allows you to 
set aside some money each year so 
that when the house wears out you will 
hve enough money to purchase a new 
house. In reality, however, the house 
will appreciate in value and so this 
merely becomes an accounting proce- 
dure. For used residential property we 
have chosen the 125 per cent declining 
balance method of depreciation and 
the useful life of the house to be 30 
years. Since only the house can be 
depreciated, you will have to look at 
the most recent tax assessment notice 
to find out how much value has been 
attached to the land and how much for 
the house and improvements. 

In the situation of our example, the 
house represents 80 per cent of the 
value and the land 20 per cent. Thus, 
since the house costs us $40,000, the 
amount that can be depreciated is 
$40,000 x 80 per cent = $32,000. Since 
we gave the house a life of 30 years, 
this means that the house will lose y 30 
per year of its value. (Example: $32,000 
divided by 30 = $1066.67). But since 
the government allows you to take 1 25 
per cent of the depreciation amount for 
used homes, the actual amount that 
you can take off on your taxes is 125 
per cent times $1066.67 or $1333.33. 
Thus, you will subtract this depreci- 
ation from the gross equity income to 
have the figure for either the total profit 
or the total loss on the property. 

In our situation, since we have a 
gross equity income of a negative $541 
(line 23) and since depreciation is a 
loss (or a negative number), the total 
loss (both real line 23 and imaginary 
line 24) is <$1873.33>. 



At this point we know that we will 
be able to write $1873.33 off the 
income tax. If you are in the 40 per cent 
bracket, then you save $749 on taxes. If 
you go back to line 21, you see that you 
have to pay $92 per month out of 
pocket of $1111 per year to carry the 
house. But you save $749.33 in taxes, 
so in reality you only had to come up 
with $363 or $30.25 per month. 

Tax Analysis 

In order to project how much profit 
you can expect in the future, we now 
do what is called a tax analysis. This 
will give us the approximate rate of 
return on our investment. 



In theory, the govern- 
ment allows you to set 
aside some money each 
year so that when the 
house wears out you will 
have enough money to 
purchase a new house. 

Line 1 — Gross Equity Income: 
This figure is taken from line 23 of the 
Property Analysis. This line gives us a 
negative <$540>. 

Line 2 — Tax Consequences: As 
we noted, if you are in the 40 per cent 
bracket, you will save $749.33 on the 
taxes. 

Line 3 — After Tax Income: By 
adding Line 1 and Line 2 you will get 
your after tax income which is $209.33. 
(Remember that this figure takes 
principal repayment into account.) 
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Line 4 — Growth: We will estimate 
at this point that our property will 
increase by 8 per cent (conservative) 
annually for the foreseeable future. 
$40,000 at 8 per cent increase annually 
is $43,200, or a growth of $3,200 for the 
first year. 

Line 5 — Net Equity Income: By 
adding line 3 and line 4 you will now get 
the total buildup of equity of your 
property: 

209.33 + $3,200 = 
$3,409.33 increase annually. 

Your real estate invest- 
ments should outperform 
virtually any other 
vehicle. 

Line 6 — Rate of Return: By 
following this formula you will be able 
to estimate the rate of return on your 
investment. 

FORMULA: 

$3,409 x 100 
$4,000 + $2,000 = 5682 per cent 

It should be noted that there are 
large income tax deductions the first 
year because of the costs involved with 
settlement. Closing costs in our area 
average about 5 per cent of the 
purchase price. 

To be sure, the rates of return of 
your real estate investment will vary 
over time. As years go by, the amount 
you can depreciate will drop and so will 
the interest deduction on your mort- 
gage loan. Most importantly, you'll 
face a capital gains on your profits 
when you choose to sell. Still, your real 
estate investments should outperform 
virtually any other vehicle. And it 
depends on only a few conditions: 

• That you buy a home in good 
condition at fair market value in a 
good location. 

• That you leverage the house, bor- 
rowing at least 80 per cent of the 
purchase price. 

• That Congress continues to grant 
depreciation deductions for the full 
amount of the purchase price. 

• That inflation continues at a rate of 
about 8 per cent per year. 

• That the American Dream will never 
end, and that people will continue to 
want the joys of living in a private 
home. □ 

This article is based on the book, 
"How To Invest In The American 
Dream For Financial Security," by 
Mayer Liebman, D.D.S., and Barry 
Feldman. Available from Ridgeleigh 
Press, PO Box 34287, Washington, DC 
20034. $12.95. The program was co- 
authored by Kenneth Kaplan. 
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(Formerly the CPCJ Shop) ™ 



SPECIALS 




Regular 
Price 



North Star Horizon 



32 K, quad-density, assembled and tested $2564 



32 K. quad-density, assembled and tested 



10 Printer 



$3215 
$1895 
$ 149 



ComputerCity Sampler 
Disk Drives 

When you're ready to add disk storage to your TRS-80*, we're here to help. 
Our CCI-100" and -200" drives offer more capacity than Radio Shack 35-Track (85K Bytes) drives. These drives 
are fully assembled, tested and ready to plug-in the moment you receive them. They can be intermixed with each 
other and Radio Shack drives on the same cable. 90 day warranty. 
CCI-100" 40 Track (102K Bytes) $399.00 CCI-200 " 77 Track (197K Bytes) $675.00 




Printers 

Letter Quality High Speed Printer 

NEC Spinwriter: In- 
cludes TRS-80* inter- 
face software, quick 
change print fonts, 55 
CPS, bidirectional, 
high resolution plot- 
ting, graphing, pro- 
portional spacing and 
tractor feed assembly. 90 day warranty $2979.00 
Also: Centronics, Paper Tiger, HI Plot Digital Plotter 
16K Memory Up-grade Kits 

Fast and ultrareliable $99.00 

DISK OPERATING SYSTEMS 
NEWDOS by Apparat + $49.95 

NEWDOS "PLUS" by Apparat f $99.95 

DOS 3.0 by the original author of 2. 1 $49.95 




DISKETTE TRS-80* 

BUSINESS SOFTWARE BY SBSG 

Free enhancements and upgrades to registered 
owners for the cost of media and mailing. 30 day free 
telephone support. User reference on request 
Fully Interactive Accounting Package: General Ledger, 

Accounts Payable. Accounts Receivable and Payroll. 

Report generating. 

Complete Package (requires 3 or 4 drives) $475.00 

Individual Modules (requires 2 or 3 drives) $125.00 
Inventory 11: (requires 2 or 3 drives) $ 99.00 

Mailing List Name & Address II 

(requires 2 drives) $129.00 

Intelligent Terminal System ST-80 III: $ 1 50.00 

The Electric Pencil from Michael Shrayer $ 1 50.00 
File Management System: $ 49.00 

Budget Control Program II by CSA $ 49.95 

Cash Register System II by CSA $ 99.00 



ComputerCity, 

A division of CPU Industries. Inc. 

175 Main Street. Dept.CC2Charlestown, MA 02129^ 

Hours: 10AM - 6PM (EST) Monday - Saturday 
For detailed information, call 617/242-3350 
Massachusetts residents add 5% Sales Tax 

TM CC1- 100 6-200 art- ComputefClty (ru trademarks 
TRS-80 is a trademark of Radio Shack, a Tandy Corporate- 
Price* subject to change without in 



TO ORDER CALL TOLL FREE 1-800-343-6522 

Massachusetts residents call 617/242-3350 
Retail Store Locations: 



175 Main Street.Charlestown, MA 

K Mart Plaza, Manchester. NH 

50 Worcester Road(Rt-9), Framingham, MA 

165 Angell Street, Providence, Rl 

Visa and Master Charge accepted 

Franchise and dealer inquiries invited 
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200 MO(2)-Y(2)*12 ,J7 ° "-PUT 0$ 






210 JFLAG-2 92 ° IF LEF1S(I>S,1)-"Y" THEN COSUB 1090 






220 REM COMPUTL YEARLY PAYMF"TS 990 PRI, ' T "'° u l- r YOU LIKE /. PRINTOUT OF THE ANALYSIS ?" 






230 FOR J-l TO JFLAG }°?° l " PUT " $ , 






240 R2(J)-R(J)/12 101 ° IF LEFT$(0$,1) - "1." THEN GOTO 1520 

250 K-l. ♦ «2(J):L-K(CO(J):!-l'(.l).R2(J)»L }"}* CL , S , 

255 PPIIT(J)-N/(L-1) VivL „„T , - „ . 














256 PPMT(J).PPMT(J).12 " ? PR NT CHR$<23> 






260 NEXT J 1050 PR,r:T PLEASE IIAKC SURE THAT THE" 






270 REII COMPUTE ANNUAL INTEREST ANP PRINCIPAL \\)\ Pn ' \"„"/*' ™" 'j 1 ™ IS 0,; 

280 REM FOR 30 YEARS , , '. T , ' " TER ;E * 






290 FOR J*-l TO JFIAG 1U5 ° p l" PEE M 16422) : P2-PEFK( 1G423) 






300 JL-Y(JK) ' 10b0 P0KE 1G414,P1:P0I'E 16415, P2 






310 ai:tu,jk).i;(jk> J?" S2 S V B ,J? 90 






320 FOR J-l TO JL 108 ° P0KC 1C"4 H. 88 : POKE lCl<lS,It 






330 ip(j > jk)>ai;t(j < jk)*r(.ik) J" 8 ;! c .° in . r li2 °, , . 






3%0 NFT(J,JK).PPMT JK)-INCJ,JK) ]°' J ° ".iJ" 1 T "E'* " P " T KCY F: 'TER"; E5 :CLS 






350 AMTU l. J K ) -AMT« J , J K)-NET( J ,OK, JjOO PRINT ^IJgrWTY «UWI1 = PR. NT : PR, NT P, 






J70 tlEXT JK 1120 PRINT USING "$5 »»»,•##"; PUR 






375 cls 1130 PRINT "FIRST MORTGAGE: "; 






380 DATA "GROSS INCOME EXPECTED "."VACANCY LOSS " lll " ) PRI,!T " SI,,G "»"».'" AT tt.lt % FOR II 






381 DATA "GROSS OPERATING 1 l!COME", "TAXES " ,, co . Y J A " , ; ' ;( l } ' "1 ( 1 > • Y( 1 > 






382 DATA "INSURANCE "."UTILITIES " " 5 ° i F,IFLAC ° 2 TIIE " C,0T0 J 19 " 






383 DATA "ADVERT 1 SI !X, " "MANAGEMENT " }J$" PR : I "SECOND MORTGAGE: "; 






38U DATA "CIVIC ASSOCIATION "'"MAINTENANCE " U7 ° J"' ;I„ U , S ( ' :G "J*" # i"' * T "'" * Ff)R " 






385 DATA "CLEANING SERVICE ","LLGAI. AND ACCOUNTING " , , „. YEA '}t '' 'f': '. .. 






386 DATA "TOTAL EXPENSES "."NET OPERATING INCOME " J"? PR " '-T : F$-"$5* ». #1* #1 ": PRI NT : PR 1 NT : 






U30 FOR J-l TO lU .^t HSi ' F J p <>lTIIEN INPUT "KEY F"TER";ES 

UUO READ A$(J) 1200 PRINT A$(J); "^^S J 186 CLS 

l»50 ,MEXT J 1210 PRINT TAB(32);" "; 11J0 F0R J "! T0 1 * 














*60 FOR J«l TO 12 1220 PRII'T USING F$;B(.I) 






l»70 IF J- 3 THEN GOTO 510 1230 NEXT J 






U80 PRINT A$(J); 1235 IF JPOITHEH INPUT "KEY ENTER";F< 






l»90 INPUT " $ ";B(J) 1240 CLS 






500 CLS 1250 PRINT "INTEREST AFTER ONE YEAP";,, 






510 NEXT J 1200 PRINT USING F$;IT 






520 B(3)-B(l)-B(2) 1270 PRINT "PRINCIPAL AFTER 1ST YR.";,, 






530 FOR J-M TO 12 1280 PRINT USING F$;PR ~^ 
5li0 B(13)-E(13)»B(J) 1290 PRINT "TOTAL LOAN PAYNFNT ";,. ^ Z V\ 
550 NEXT J 1300 PRINT USING F$;TLP "^ 














560 B( ll«>>B( 3)-B( 13) 1310 PRINT "GROSS SPENDABLE INCOME ";,, 1385 IF JPOITHEN INPUT "KEY FNTER";E$ 






570 REM INTEREST AFTER ONE YEAR 1320 PRINT USING F$;GSI 1390 CLS: IF JP-1 THEN PRI NT : PRI NT : PR 1 NT 






580 IT-IN(l.l) ♦ 1.1(1.2) 1330 PRINT "GROSS EO.UITY INCOME ";,, 11.00 PRINT TAB(IO);" ••• TAX ANALYSIS *•* " 






590 REM PRINCIPAL AFTER ONE YEAR 13M0 PRINT USING F$;GEI 11,10 PRINT "TAX CONSEQUFNSFS "• 






600 PR-NET(l.l) ♦ I.ETC1.2) 1350 PRINT "DEPRECIATION ";,. 1U20 PRINT USING F$;TC 






610 RE!! TOTAL LOA.. PAYIT!!T 1360 PPIHT USINC F5;DF 11,30 PRINT "AFTER TAX INCOME "•, 






620 TLP-IT ♦ PR 1370 PRINT "TAXABLE 1 NCOMF ";,, 11,1,0 PRINT USING F$;AT 






630 REM GROSS SPLNDACLE 1 !'CO!!E 1380 PRINT USING F$;TI 11,50 PRINT "APPRECIATION "• 






61,0 GSI-E(lli>-TLP 11,60 PRINT USING F$;GR 






650 REM GROSS EWITY INCOME 11,70 PRINT "NET EQUITY INCOME";, 






660 GEI-GSI ♦ PR H, 80 PRINT USING F$;NE 






670 REM DEPRECIATIJN--WE ARE USING SO?, IMPROVEMENT VALUE AND 30 YEAR LIFE 1435 PRINT:PRINT 






671 REM A 125'; DECLINING BALANCE IS USED 1U90 PRI NT : PRI NT "RATE OF RETURN "; 






672 INPUT "DO YOU -i 1 311 TO ENTER YOUR O.IN FIOURES FOR DEPRECIATION"; 11$ 1500 PRINT USING "11.11 % PER YFAR ";RR 






671, IF LEFT$(!IS.l) - "! " TIIE" GOTO 680 1505 IF JPOIT.IEN INPUT "KEY FNTER";F.S 






675 li.PUT "WHAT IS Tl.C VALUE To TIIE LAND"; 03 n 






676 INPUT "WHAT ; RATE WILL YOU BF USING (100,125.200) ',"; Hi. :05-Dlt/ 100 // 






677 INPUT "110'.! MANY YE^RS WILL YO!' OEPRrci/.TE THE PROPERTY"; D6 f* 






678 PF-<DS/D6)«rs *"^ 






67S GOTO 690 1510 RETURN 






680 DE-((PUR«.80)/30)*1.25 I 520 CLS 






6'10 Rn- TA7AHLE INCOME 1 5J0 P R INT CHR$( 23) : PR 1 NT " *•• GOOD LUCK «••" 






700 TI-r.EI - DE i 5lt0 G0T0 i 5 *" 
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THANKS FOR 
THE MEMORIES, 



Thanks to these inexpensive Pet and TRS-80 memories and disk drives you can instantly 
increase your personal computer's capacity, capability and versatility. 



Expand your Pet. 

Disk Drives : Choose either double density 400k or dual head 
double density 800k on-line disk drive. Both with DOS operating 
system including 17 additional BASIC commands and random 
or indexed sequential access 

Exceptionally fast 5.000 bytes per second (including verify) 
transfer speed lets you load 20k program in just 3 seconds 
Model 8k must have Expandamem™ to operate disk drives 
All other models are plug compatible. 

400k only $1295 800k only $1695 

Ex pandamem™. Lets you expand the size and scope of your 
programs 16k. 24k. and 32k internal memory boards give you 8k 
of assembly language subroutines accessed via the USR command 

16k only $425 24k only $525 32k only $615 

Softw are Complete library available Write for details 

Expand your TRS-80. 

Disk Drive: Single density dual head 400k on-line disk drive i: 
completely compatible with TRS-80 DOS and uses own controller 
Only $1295 



IMMEDIATE DELIVERY! ORDER TODAY! 



COMPUTHINK 

965 W Maude. Sunnyvale CA 94086 
(408) 245 4033 

Please send me the following; 

□ Pel Disk Drive D 400k □ 800k 

□ Pet Expandamem'" □ 16k □ 24k □ 32k 
D Pet Software (Into only) 

□ TRS-80 400k Disk Dnve 

□ Name ol my nearest Computhink dealer 
Total enclosed S 



Check or Money Order only Calil Res add 6% tax 
Freight pre paid in continental U S 
Dealer Inquines Invited 

Name 



Address 



City 



State 



Zip 



Making budgeting and planning easier 

Expense Management 
Package 

Bethany Prendergast 




Have you ever wished that you 
could make your little microcomputer 
act like one of the "Big Boys" or do you 
just hanker for that one little applica- 
tion that could make even the biggest 
skeptic go "Ohhhh!" and "Ahhhh!"? 
Well, for you TRS-80 owners, this 
might be just the program you are 
looking for. 



Do you just hanker for 
that one little application 
that could make even the 
biggest skeptic go'Ohh!" 
and "Ann!"? 



You can run your computer in a 
large scale manner, convince the 
skeptics in your house and at the same 
time produce usable outputs for both 
amateurs and small businessmen 
alike. Can you give me: 1 ) the amounts 
in dollars and cents, 2) the mean, the 
standard deviation and future projec- 
tions, and 3) either a video screen 
graph or a hard copy graph of your 
electric bill forthe past two years? I can 
and, in addition, I can give it to you (or 
IRS) in many more areas than my 
electric bills — all in a matter of 
seconds. 

This article will deal with 3 pro- 
grams: EXPENSES, TRANSFER/EXP, 
and GRAPH/EXP. The programs have 
been written for the TRS-80 Level II, 
32K (or 48K), with a disk and line 
printer. The line printer used is the 
IDS-225, but the programs will run with 
any 80 column printer after only slight 
modification (such as removal of 
expanded print commands). 

First, some general remarks that 
apply to the package as a whole. You 
will note some program steps in the 
listings that appear to be needless and 
serve no purpose. I assure you they are 
there for a reason. In my attempts to go 
"Bigtime" I experienced many unex- 
plainable errors — not explainable 
from the TRS-80 books, that is. Just as 
I learned from experimenting that the 



Bethany Prendergast. 10129 Leisure Lane North, 
Deerwood, Jacksonville, FL 32216. 



best cure for keybounce was to insert 
Tunerlube Jelly into the key after 
removing it, so I had to start experi- 
menting to find out the causes of my 
erratic machine behavior. What was 
my trouble? You name it and I was 
having it! Incomplete reads/writes, all 
kinds of disk errors, along with much 
unexplained garbage. After much 
wailing and gnashing of teeth, I 
determined the following to be neces- 
sary for the operation of my system: 

1. removal of the power packs 
from the expansion interface, placing 
them to the side; 

2. aluminum foil between the 
expansion interface and the video 
screen; 

3. a fan on the system when 
working; 

4. false loops to slow down the 
disk during rapid read/writes, as 
reflected in the program listings; 

5. loading of blanks to the disk 
buffer between read/writes. 

Now, I'm pleased to report that my 
TRS-80 is operating right at 100%, 4 to 
6 hours per day, all of the time. 

The programs are long. For those 
of you who will take the time to contact 
me first, I'll try to arrange to make a 
disk/tape copy provided you will 
furnish the tape/disk and reimburse 
me for the postage and the gas to get to 
the post office. I will accept prepaid 
calls before 10 PM in the evening to 
answer any question that you may 
have. If you want a copy made, you'd 
best call first because I am not set up 
for any large scale reproduction. For 
those of you who live in a different time 
zone, I would appreciate your check- 
ing the time here in Florida before 
calling because I put my recorder on at 
10 PM. 

Expenses Program 

EXPENSES is a general purpose 
TRS-80 program that stores date and 
amount information into 20 different 
accounts. The information is stored to 
the accounts using the random file 
technique. The information can be 
recalled for the purpose of 1 ) display of 
the entries in each account; 2) graph- 
ing of the entries in each account to the 
video screen and/or line printer; and 3) 
display of statistical data for each 



account to date. 

I have named the accounts for my 
own use. However, the program keeps 
track of the accounts by using vari- 
ables E1-E20, so you may change the 
name of the accounts to any name(s) 
you wish by merely changing the 
PRINT and the LPRINT statements 
starting at line number 2000. The 
number of accounts may also be 
altered to more or less than 20 by 
altering the value of "Z" where appro- 
priate. Altering the number of the 
accounts would be difficult at best and 
I do not recommend trying this until 
you feel certain you understand the 
program thoroughly. Instead of alter- 
ing the numbers of accounts, I suggest 
that you carry the 20 and use only the 
ones you need, keeping the unused 
ones as dummy accounts with a zero 
beginning entry and carrying them that 
way until you want to use them. 

The printer I have is an IDS-225, 
and I rate it at A+. The LPRINT 
CHR$(n) statements in the program 
control the print size on my printer. 
You may delete them from your 
program and/or substitute the codes 
for your printer. All printing is upper 
case. 

The program will accept 
and calculate zero a- 
mounts for the purpose 
of graphing and comput- 
ing statistics. 

Entries are made to each account 
in response to screen prompts. When 
entering information for the date, you 
may exercise some degree of indi- 
vidual preference. The only restriction 
is that the date entry cannot exceed 9 
characters nor be shorter than 8 
characters. I have elected to use a 
three letter month followed by a 
comma and then the year (e.g., 
JUN.1 979 or SEP.1 979). After you play 
with the program for awhile, you might 
prefer to use the actual day's date. Be 
sure to stick to one format, whatever 
you decide. Option #3, for example, 
searches the account for a match 
which is why consistency is important. 
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CREATIVE COMPUTING 




How 
COMPUMAX 
stacks up 
to 

the 
competition 





«**— 














T^^COMPARIbON bHUKKINL.< blUMHtKt! 


IMPORTANT QUESTIONS 
ABOUT BUSINESS SOFTWARE 


COMPUMAX 


OSBORNE/ 
McCRAW HILL 


PEACHTREE 
SOFTWARE 


STRUCTURED 
SYSTEMS 


What programs are available? 

Are they INTERACTIVE? 


INTERACTIVE: 

GENERAL LEDGER 
ACC'TS PAY ABIE 
ACC'TS RECBtE 
INVENTORY 
PAYROLL/PERSONNEL 


INTERACTIVE: 

CENERALLEDCER 
ACC'TS PAYABLE 
ACC'TS REC'BLE 

NON-INTERACTIVE: 
PAYROLL 


INTERACTIVE 

CENERAL LEDCER 
ACC'TS PAYABLE 
ACC'TS REC'BLE 
PAYROLL 

NONIN7ERAC7/VE 
INVENTORY 


INTERACTIVE 

CENERALLEDCER 
ACC'TS PAYABLE 
ACC'TS REC'BLE 

NON-INTERACTIVE: 
STOCK CONTROL 
INVENTORY 


What versions are available? 


TRS-BO. APPLE II 

COMMODORE PET 

MICROSOFT CBASIC2 CP/M 

MICROPOLIS. 

EXIDY SORCERER, 
VECTOR MZ, DYNABYTE 

C ROME MCO III 


WANC 
CBASIC2CP/M 


MICROSOFT CP/M 


CBASIC2CP/M 


What is the price? 


MICROLEDCER. A/P, 
A/R, INV, PERS *140 -each 
MAXILEDCER. A/P. A/R 
*350-each 


CL, A/P. A/R, PAYROLL 

$250 -each 
Cost of configuring must 
be added' 


CL. A/P, A/R. PAYROLL, 
INVENTORY J1000 each 


CI sw 
A/P »750 - 
A/R S750 - 
INV tSOO - 


Hardware options 


40 column CRT 
64 column CRT 
80 col terminal 
80 col. printer included 


64 col CRT only 

132 column printer only 


80 col CRT only 

1 32 column printer only 


cursor addressable terminal 

only 
132 column printer only. 


Is source code included? 


YES, INCLUDING 
PROGRAM FLOWCHARTS. 


YES 


YES 


NO 


What type of after-purchase 
support is offered? 


1 YR WARRANTY 4 
CORRECTION OF DEFECTS 
THROUCH DEALER 
INDIVIDUAL PROCRAM 
AUTHORS AVAILABLE FOR 
QUESTIONS 


NONE 


1 YR WARRANTY & 
CORRECT ION OF DEFECTS 
THROUCH DEALER 


TECHNICIANS AVAILABLE 
FOR QUESTIONS UPDATES 
MADE AVAILABLE FOR 
A FEE 



yourone-stop shop for all your business bookkeeping software. 



You've been led down the path 
before, but not this time. No more 
promises of turnkey computers 
without the key. It's YOUR turn to 
tell the computer how to run the 
business, not vice versa. 



With COMPUMAX 
you have a beginning 



software 
With 5 
years of experience and over 3,000 
systems installed, they are pro- 
fessionals, when it comes to solu- 
tions for the businessman. 



COMPUMAX software is de 
signed with CHANCE in mind, 
since everybody really wants his 
own touch added. The programs 
are SIMPLE, YET ELOQUENT. 

COMPUMAX supplies ready, 
working programs. You can, then, 
easily customize them, as your 
additional requirements develop. 



Or do as many have done— keep it 
simple by running the programs 
in their ready form. Join the 
microcomputer revolution the 
simple way. 

For a demo, visit your local compu- 
ter store. If you local retailer does not 
carry COMPUMAX software, have 
him give us a call at (415) 321-2881 . 



CIRCLE 120 ON READER SERVICE CARD 
FEBRUARY 1980 



505 HAMILTON AVENUE PALO ALTO, CA 94301 



Package, cont'd... 

When the program is first run, it 
will display 5 options and ask you to 
select one. On your first run, select 
option #1 and make at least one date 
and amount entry for each of the 20 
accounts. If you have no entry to an 
account or do not choose to use an 
account, enter the current month, year 
and zero for the amount. The program 
will accept and calculate zero amounts 
for the purposes of graphing and 
computing statistics. There is one 
exception to this. Because the 
TRANSFER/EXP program initializes 
the accounts to a zero as the first entry, 
the statistics routine checks first to see 
if the first entry is a zero. If it finds a 
zero as the first entry it passes it by and 
selects the second entry to start 
computation. After you have used 
option #1 to initialize everything you 
probably won't need to use it again. 
The rest of the options are self- 
explanatory. If you have any questions 
as to which one to use, fall back on 
option #2. It calls out the entire file and 
tells you what's on it. It also should be 
used to call an account for graphing or 
statistical purposes. 

The EXPENSES program doesn't 
begin to pay off for you until you have 
accumulated some small amounts of 
data. Its value lies in two areas; to store 
and retrieve and to display trends. For 
example, I can tell (after accumulating 
6 months data) just how much of a 
gasoline savings I realized when I 
switched over to a Diesel Olds. 

In addition to being able to recall 
in seconds, individual expenditures 
(such as the last time I paid my dentist) 
I can give you a pictorial analysis, in 
the form of a graph, on my video screen 
in a flash. You will be surprised at just 
what this program will show up about 
things that you never had the means to 
examine before — especially if you are 
in business. Once again, it is necessary 
to enter a fair amount of history 
initially, or wait a few months for it to 
accumulate. 

I generally batch enter my entries 
from a small book I carry around with 
me (and which serves as an audit trail if 
a disk were to 'bomb'). Every three or 
four days, I enter all my expenditures 
onto a disk labeled my "DAILY DISK." 
At the completion of each entry 
session, I get a printout of the account 
totals to date. Accordingly, if my 
system were to go down, I have both 
my original entry book and a copy of 
the totals from the last input session to 
permit me to recover. At the end of the 
month, I transfer my account totals 
(using the TRANSFER/EXP program) 
to a "MONTHLY DISK" and reinitialize 
the "DAILY DISK" for a new month. I 
keep a backup disk for the "MONTHLY 
DISK," incidentally, so I feel that I have 



a sufficient audit trail in the event of 
some calamity. 

The EXPENSES program is com- 
posed of fairly complex routines. An 
in-depth understanding of the pro- 
gram would require a good foundation 
in Basic programming to include a 
thorough working knowledge in the 
areas of string manipulation and the 
use of random files to pack data. 
Unfortunately, it is hard to find a good 
elementary treatise on these sub- 
sections of Basic. It should be possible 
for you to study the program in 
conjunction with your TRS-80 book, 

I can give you a pictorial 
analysis, in the form of a 
graph, on my video 
screen in a flash. 

however, and, taking a command at a 
time, slowly piece together just what is 
happening. To help you, the following 
is a line-by-line breakdown of the 
program: 
LINES #90 - 590: 

This portion of the program is the 
graph routine to the video screen. It 
graphs the data that has been stored 
under A(X) by the expense parts of the 
program. 

The data is graphed on an X-Y axis 
basis and is scaled down (if necessary) 
to fit the screen. Some of the accuracy 
is lost by taking the integer function of 
the Y value in line 200, and by the 
scaling, but its purpose is to merely 
show a relationship of one entry to 
another and display trends. 
LINES #600-950: 

This portion of the program is the 
statistical routine. A prompt appears 
on the screen after the graphing 
routine or if the graph option was 
bypassed asking if you want statistical 
data. The routine gives the mean, the 
standard deviation and the coefficient 
of correlation for the account you are 
dealing with at the time. Future 
projections can be requested at this 
time. 
LINES #960-1040: 

This is the beginning of the 
program and gives a general explana- 
tion of what the program does along 
with the different options that are 
available for running. The month and 
year are carried under Y$(X) and the 
amounts are carried under A(X). 
LINES #1100- 1140: 

This portion of the program gives 
the five options permitting the entry 
and/or retrieval of data. Option #1 is to 
be used for the initializing of accounts 
the first time through. Options #2, #3, 
#4 and #5 are self-explanatory. Option 
#5 permits the batching of your entries 
to all accounts and permits you to 
enter large amounts of data in a 
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relatively short period of time. This 
option allows you the luxury of not 
having to post your entries everyday; 
instead, you may post to the accounts 
as seldom as once a week. 
LINES #1170- 1260: 

Option #1 begins at #1170 and 
jumps to #2140 - 2260 to list the 20 
different accounts by name and num- 
ber (E1-E20). Variables E1-E20 identify 
each account and are then carried as 
F$ throughout the remainder of the 
program. The entry of data for option 
#1 takes place in #1200-1240, with a 
print of the data to the video in #1430. 
The saving of the data takes place at 
lines #1700 - 1740. 
LINE #1280: 

Start of option #2. 
LINES #1310 - 1340: 

Check to make sure that file exists 
on the disk. 
LINES #1350- 1520: 

Opens file F$ and brings the file 
into RAM. File is then printed using 0$ 
format concluding with a total. 
LINES #1530- 1800: 

Permit corrections or additions to 
files. Note that all files are stored using 
the random file designators and are 
packed 1 6 date and amount entries to a 
sector. Each file manipulation must 
unpack and/or pack before moving on 
to a save or other handling of the data. 
A loop is set up to load each date and 
its corresponding amount into the 
buffer up to 16 times, dependent on the 
number of entries. (See lines #1700). 

The beginning of the 
program gives a general 
explanation of what the 
program does along with 
the different options that 
are available for running. 

You are cautioned to remember as you 
step through this that if you have less 
than 16 entries you must stop at your 
last entry. Correspondingly, your loop 
must take into account that there may 
be more than 16 entries. An alteration 
would have to be made at this point if 
your memory did not permit all data for 
an account to be brought into RAM. I 
did not provide for this true 'random 
handling' because I cannot see any 
single account having that many 
entries before I retire that disk. 
LINES #1810 - 1840: 

This routine returns the dollar 
amount entry for the given date. 
LINE #1850: 

Goto the print subroutine. 
LINES #1860- 1870: 

Enter account identifier (E1-E20) 
and the date. 
LINE #1940: 

Jump to error routine if you are 
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This TRS-80 fascinates 
my whole family! 

50 unique programs for all ages 



A package of fifty different game, 
quiz, instructional, educational, 
financial and fun programs are 
available for any TRS-80. Every 
member of your family will enjoy 
the TRS-80 with this set of 
programs called "The Fascinating 
Fifty." And it is reasonably 
priced at $24.95. 

Designed for the whole family 
these programs are fascinating 
Have fun playing MANCALA or ZOO 
BREAK, guessing WORLD RECORDS or 
U.S. PRESIDENTS, learning MOON 
PHASES or WORD COMPLETION and using 
FINANCIAL TIMETABLE or METRIC 
CONVERSION. Other programs 
include: Rocket, Bingo, Dice, 
Reverse, World Population, World 
Area, States, Air Distance Between 



City, 

Base, 

Loan 

From 



Cities, World Population by 
Grade Averages, Number 
Accounts Receivable, 
Amortization, Interest 
Savings, Business Ledger, Calendar, 
World Clock, Blackboard I, II, III 
i, IV, Maze, Letter Recognition, 
Numeral Recognition, Right Reading, 
Word Recognition, How Many, Add On, 
Take Away, Learn To Spell, Sounds 
( Like, Story Telling, Multiply, 
Divide, Fractions, State Capitals, 
Foreign Capitals, Cub Reporter, 
Spelling - Grade 4, 5 & Jr. High, 
and Test Your Vocabulary. 

If you would like every member 
of the family to enjoy your TRS-80, 
today order your copy of 
"Fascinating Fifty" by Neal Jensen 
for only $24.95. 
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by Douglas G. Carlston 
This is fantastic! "Galactic 
Empire" opens up a three 
dimensional universe for 
exploration and conquest. While 
travelling through space you 
command the Imperial Forces of 
Galactica , your ship' s senior 
officers and its computer. You 
must plan you construction of 
additional support craft and their 
arrival at nearby planets. 
Increase your strength by taxing 
and enlisting additional troops 
from the varied and unique planets 
you conquer. Besides maneuvering 
in a three-dimensional universe 
which changes from game to game, 
your use of time to travel between 
planets is very important. Good 
graphics and the sophisticated 
strategy make this game much 
different from any "Star Trek" or 
"Star Wars." Explore the galaxy 
for $14.95. You'll love it! 



from Automated Simulations 

In this microquest you are Brian 

Hantmerhand on a mission into the 

Haunted Mountains and Underground 

lair of Rex the Reaver and his band 

of thieves. A perfect introduction 

into the Dunjonquest series which 

started with "The Temple of 

Apshai." 16k $14.95. 

Also available "Temple of Apshai." 

f 24.95. 





Invader 

from Levei IV 
Machine langi 
sound. $14.9! 

Adventure 



arcade game with 



TRS80 Disk& 
Other Mysteries 

by H.C. Pennington 

We don't usually list books, but this 
one is so unique that we thought you 
would want to know about it. There are 
over 100 pages about how DOS works, how 
a disk is organized, and how to recover 
from errors. This is THE technical 
backup for NEWDOS+ with great 
illustrations. $19.95. 



Disk*Mod 



Add 

toucl 

of MAGIC 



with a Light Pen. 

With only a few Wfies of BASIC, any 



program can accept inputs by 
touching the light pen on the video 
screen. Hundreds of applications! 
For only $19.95 you receive the 
light pen, instructions on using it 
in your programs, several sample 
programs, and a cassette of three 
pen programs. This is the 
standard pen which several software 
companies support. 
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by Gordon Letwin from Microsoft 
The complete Adventure is the 
ultimate fantasy game which allows 
you to explore the "Colossal Cave." 
This is the same as originally 
written for the DEC PDP- 10. It 
fills an entire disk and requires 
32k. For just $29.95 

Video Speed Reading 

from Instant Software ~ 

Using the scientific principle 
behind the tachistoscope, a 
mechanical device used to flash 
characters or words on a screen, 
this three-part package will train 
your eyes and mind to quickly 
recognize numbers, letters, words 
and phrases. $7.95 

Personal Inventory 

Southern States Systems 
Designed to allow you to develop an 
inventory of your personal 
possessions for insurance purposes, 
you record for each item its ? 
description, serial number and ; 
value. Permits sorting, modifying 
and other record manipulations with 
storage on cassette tape. $12.50. 

CIRCLE 174 ON READER SERVICE CARD 
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by Roy Soltoff from Nisosys 

This machine language program 
modifies your copy of the Radio Shack 
Editor /Assembler for use with your 
minidisk and any disk operating system. 
You can save and load both text source 
and assembled object files. Unlike the 
NEWDOS+ version you can read the 
directory and the space used and 
available while in the EDTASM. You can 
also kill files. It is a complete disk 
modification for one or more drives. 

Other capabilities are also added 
which are not found on NEWDOS+. The 
block move command relocates a section 
of text to any other area. The global 
change command permits, for example, 
changing a label throughout the text. 
The pagination feature provides hardcopy 
on 8 1/2 by 11 pages on either single 
sheets or continous paper. In addition, 
high memory can be reserved, like in 
BASIC, for machine language routines 
1 ike printer drivers . You can also 
display the amount of memory remaining. 

The <CLEAR> key is functional, the 
symbol table is sorted alphanumerically 
and output 5-across, the scroll up/down 
allows 15 lines on the screen, and the 
'DEFM* assembly is improved. Lower case 
input is now permitted and you can 
branch to any address. Plus, it also 
corrects the errors in the Radio Shack 
tape version. 

Save your time and make full 
your disk system by upgrading 
Editor/Assembler today. $19.95 

System Doctor 

froffl The Bottom Sh< 

Assure yourself that your TRS-80 is 
working properly. The causes of 
hardware problems are often hard to 
detect , but you can now do a thorough 
diagnostic check of your entire 
computer. It checks the ROM, the RAH, 
disk drives, video memory and display 
and cassette recorder. Also provided is 
a special test tape and a 12-hour test 
with a recording of results to find 
those occasional errors. $28.50. 
On disk $38.50 

THE PROGRAM STORE 
4200 Wisconsin Ave NW 
PO Box 9609 Dept R6 
Washington, D.C. 20016 
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these TRS-80 programs: 


jj title 
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3 name: 


postage: i .00 
total: 


: address: 


city, state 
f. code 



DCheck payable to The Program Store 
□MASTERCHARGE mc bank code: 
□VISA exp date: 

card number: 

sianature: 
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Package, cont'd 




attempting a read from a file that has 
not been established yet. 
LINES #1960 - 2060: 

Returns file requested in line 
#1870 by T$. 
LINES #2090 - 2120: 

Prints file name, date and amount 
to line printer. 
LINES #2130 - 2700: 

Contain recurring subroutines to 
print out file names. 
LINES #2710 - 2780: 

Prints current date heading on line 
printer. 
LINES #2800 -3150: 

Brings in all files one at a time 
printing file totals to video and/or line 
printer. 
LINES #3160-3170: 

Beginning of option #5 for batch 
entries to all accounts. 
LINES #3190 -3210: 

Input of data. 
LINE #3220: 

Total your entries for display on 
video. 
LINE #3280: 

Permits positing to any one (or all) 
accounts. 
LINES #3320 - 3340: 

Zero out Y$(X) and A(X) because 
total to that account has been saved 
under CO for amount and Q$ for date. 

TRANSFER/EXP is the 
easiest of the three pro- 
grams to understand. 

LINE 3440: 

Prints the name of the account 
being handled. 
LINES #3450 - 3480: 

Checks to see if file is on disk. 
LINES #3510 - 3720: 

Bring in each file, add new infor- 
mation and write it back to the disk. 
LINE #3730: 

Check that all files have been 
counted. 
LINES #3750 - 3800: 

If last sector was full, write infor- 
mation to a new sector. 
LINES #3820 - 3950: 

Create a new file. 



Transfer Expenses Program 

TRANSFER/EXP is the second 
program of the EXPENSES PROGRAM 
PACKAGE. It presumes some knowl- 
edge of the EXPENSE program, at least 
to the extent of understanding what it 

d06S 

TRANSFER/EXP is the easiest of 
the three programs to understand in 
that it is, for the most part, operator 
independent. Once you start to run it, it 
sort of takes off by itself. Operator 
intervention is called for by video 
prompts, but is limited. You are given 
the option of specifying some hard 
copy printout only. The result of the 
operating time is devoted to changing 
disks when requested. 

TRANSFER/EXP is a special pur- 
pose utility program. It is intended to 
deal only with those random files 
created by EXPENSES. The "DAILY 
DISK" is totaled by each individual 
account and the totals are retained in 
RAM. The "DAILY DISK" is then 
exchanged for the "MONTHLY DISK" 
and the totals are written to the 
monthly accumulation for each ac- 
count. At the completion of the transfer 
of the totals, you are asked if you want 
to reinitialize the daily accounts. A 
"Yes" answer will cause the screen to 
prompt for the reinsertion of the 
"DAILY DISK" and the old account 
entries will be killed. The program goes 
on to make a new first entry for each of 
the 20 accounts of the month and the 
year with the insertion of a zero for the 
amount. Accordingly, each account 
now contains only one entry on the 
"DAILY DISK"; namely, month, year 
and $0.00. 

As I stated previously, there is a 
backup in the event of a system failure 
with your daily accounts. Specifically, 
you have original documents and the 
hard copy printout after each entry 
session. Unfortunately, there is always 
the possibility that you could have a 
system catastrophy resulting in de- 
struction of both the "DAILY DISK" 
and "MONTHLY DISK." I agree that 
such a thing is highly unlikely, but it is 
better to plan for the worst. This is why 
the first part of this program gives you 
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a hard copy printout of each account 
on the daily disk. If you retain this 
printout and the original documents, 
you can reconstruct and/or build new 
disks with very little effort. I also go one 
step further and back up my monthly 
disk each month. 

If you have studied the EXPENSES 
program in any detail, you will find that 
the same logic is carried forward into 
the routines for this program. The 
following is a summation of the 
program by line numbers: 

Some of my students 
have called this program 
"tricky." 

LINE #150- 190: 

A blinking prompt routine using 
the INKEYS statement. 
LINES #320 - 490: 

The daily files are opened and the 
entries totaled for each account. The 
account totals are carried under T(Z). 
If you asked for hard copy in line #80 it 
is printed out in #490. 
LINES #540 - 1040: 

#550 jumps back to another blink 
routine starting at line #230 and, upon 
completion, the totals are transferred 
to the "MONTHLY DISK." The new 
date entry is carried as Q$. Each file is 
opened and read. The new date, Q$, 
and the appropriate total under T(Z) is 
added on to the Y$(X) and A(X) 
columns. The new information is 
written out to the disk starting at E1 to 
E20. If you attempt a write to an 
account that has not been opened on 
the monthly disk, use option #1 of 
EXPENSES to open it. The packing 
and the unpacking of the file buffer is 
the same as with EXPENSES. 
LINES #1110- 1250. 

Each account is killed off the 
"DAILY DISK." Line #1260 requests the 
new month and year to serve as the 
new first entry to each account as it is 
reinitialized. 
LINES #1370- 1420: 

New entry is made as each ac- 
count is reinitialized. 
LINES #1420 - : 

Program concludes. 

Graph of Expenses Program 

GRAPH/EXP is the last program of 
the EXPENSES PROGRAM PACK- 
AGE The GRAPH/EXP program is a 
special purpose program that will take 
information from the files, established 
by EXPENSES and TRANSFER/EXP, 
and graph that information to your line 
printer. The information is graphed to 
the line printer on the X-Y axis with the 
entries represented on the Y axis and 
the sequence of the entry shown on the 
X axis. Accordingly, the first entry is 
graphed to the 1st line of X, and so on. 

CREATIVE COMPUTING 






Package, cont'd... 

Some accuracy is sacrificed by virtue 
of converting the entries to integers 
and by scaling the entries down to not 
exceed 90 (the number of print col- 
umns). 

Some of my students have called 
this program "tr i cky." I'm not sure that 
is an appropriate way to refer to any 
program, but in any event, I truly did 
not intend it to be so. I wrote the 
program because I found the video 
screen graph to be difficult to study. 
Also, the video graph is, at best, 
temporary and I find that I often want to 
examine where my accounts are 
headed in the convenience of my 
armchair. All I am looking for is a hard 
copy printout that will allow me to 
carefully compare my entries. If I spot 
something that looks out of line, I'll go 
to the account itself for a more 
accurate examination. 

The crux of the program is in 
understanding the way I convert the 
numeric entries to strings and how I 
then locate the print symbol on that 
string. The whole print line is as- 
sembled in memory before it is printed. 
The technique used to accomplish this 
is really quite simple. For example, let's 
examine how I convert $15.00 to a 
string: 1 ) enter the number you want to 
convert as the upper limit on a loop, 



FOR X = 1 TO 15 2) Select a string 
variable that has been set to zero and 
add any character to it as it goes 
through the loop, A$ = A$ + "." 3) Print 
the string variable at completion and it 
will contain the number of characters 
equal to the original number. 

10 A$ = "" 

20 FOR X = 1 TO 15 

30 A$ = A$ + "." 

40 NEXTX 

50 PRINT A$ 

Your video will now display: 



That's all there is to it! I actually 
have the strings display periods while 
the program runs so you can see 
something happening instead of 
watching a blank screen. 

I find that I often want to 
examine where my ac- 
counts are headed in the 
convenience of my arm- 
chair. 

I have elected to use a 90 column 
print format. You may alter this 
program to run on any line printer by 
changing the loops to correspond to 
the number of print columns you want 
to use. The LPRINTCHR$(30) is 
peculiar to the IDS and may be deleted. 



A breakdown of the program by 
line numbers is as follows: 
LINE #80: 

The number of lines in the X axis 
(the length). 
LINES #90 - 100: 

Enter the file to be read. 
LINES #110- 170: 

Open the file and bring in the 
entries to RAM. 
LINES #200 - 240: 

Convert the entries to integers. 
LINES #260 - 400: 

If the entries are > 90 scale them 
down. 
LINES #410 - 460: 

Set up a loop that converts the 
numeric values into strings of periods 
stored under A$(l). 
LINE #480: 

Display the strings of periods on 
the video screen. 
LINE #520: 

Print the Y axis increments. 
LINES #530 - 620: 

Print the Y axis. 
LINES #630 - 830: 

Set up each line for a print and 
locate the print symbol on that line 
(#750). Repeat until all entries are 
finished. 
LINES #880 - 970: 

If X lines have been called for to 
extend the graph beyond the last entry 
graphed they are now printed. D 



Introducing the BASIC Primer Package. 

Now you can let your Digital 
computer system help teach 
BASIC, administer testing and 
monitor progress. 



Digital's new computer- 
managed BASIC Primer is more 
than an improved method in self- 
paced instruction. 

Ifs actually a whole new 
way to involve your Digital compu- 
ter in training beginners. 

In addition to self-paced 
textbooks and an administrator's 
guide, you get a complete soft- 
ware package geared to your 
Digital computer and your 
system's version of BASIC. 

Your computer aids the 
Primer text in teaching BASIC by 
interactively directing students 



through the course and adminis- 
tering pretests and posttests. 

What's more, the BASIC 
Primer was developed by one of 
Digital's educational design 
teams — your assurance of sound 
education and communication 
theory backed by extensive field 
testing. 




For more BASIC Primer detail*, including discount pricing. contact 
your Digital *ale* office, or write Educational Service*, Digital 
Equipment Corporation. Crosby Dr., Bedford, MA 01730. 

naiie titie 



The BASIC Primer - avail- 
able on magtape (All Systems), 
floppy (RT Systems), or DEC- 
tape (RSTS/E) — means a much 
greater degree of quality con- 
trol in BASIC instruction. And 
a cost-efficient, custom- 
ized course never be- 
fore available in pre- 
packaged programs. 
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: NEXTX 
NEXT Y 



X«0 




10 '-PROGRAM LISTING FOR CREATIVE COMPUTING - 07/13/7? 

20 ' - EXPENSES 

30 '-PROGRAM BY BETHANY PRENOERGAST 10129 LEISURE LANE N. 

40 '-DEERW0OD- JACKSONVILLE. FLORIDA 32214 ( 904-442-1702 ) 

50 '-WRITTEN ^OR TRS80. LEVEL II. 32 OR 48 K WITH (1) DISK 

60 '-GOOD LUCK.... AUTHOR HILL ACCEPT PREPAID CALLS BETWEEN 

70 '-7-10 IN THE EVENING IF YOU HAVE PROBLEMS'" 

80 '-PROGRAM BEGINS AT 940 

90 '-GRAPH ROUTINE 

100 CLS! GOT0940 

114 C0T0120 

120 CLS:GOSUB 320 

130 REM-THIS IS A GRAPHING PROGRAM . IT HILL GRAPH ITEMS 

140 REN-TAKEN FROM DATA STORED UNDER A<X>... 

130 CLS 

140 PRINTe 64. "Y-; 

170 PFINT8 1023. "X'i 

180 IF A( I ) =0 THEN FF7=2 ELSE FF7»l 

190 FOR F--FF7 TO Z 

20'. Y=A(FK T« INT (( 47-( Y/G )>t.3) 

21" FOR SZ= 1 TO 47 

SETCF.Y) 
230 Y«YM: IF Y>47 THEN 250 
240 NEC SZ 
250 NEXT F 
240 Y* 47 

270 FOR X » TO 127 t SET ( X.Y ) 
23( FOR Y » TO 47 ! SET(X.Y) i 
290 FOR WW*1 TO 1000 X NEXT Ml 
300 GOTO 1780 

310 '-graph by b. prendergast 11/1/78 
320 g*o:gg*o 

330 FOR S» 1 TO Z 

340 IF A(SK47 THEN G = i:G0T0560 

350 IF A<SK94 THEN G=2!GOT0340 

340 IF A(S)<141 THEN G»3:G0T0540 

370 IF A(SK188 THEN G»4:GOT0540 

380 IF A(SK233 THEN G*5!G0TO540 

390 IF A(SK282 THEN G*4:GOT0540 

400 IF A<SK329 THEN G«7tG0T0340 

410 IF A<SK374 THEN G-8:G0T0340 

420 IF A(S)<423 THEN G=9:GOT0540 

430 IF A(SK470 THEN G«10:GOT0540 

440 IF A(SK517 THEN G'li:GOTOS40 

450 IF A(S)<544 THEN C-12:G0T0S40 

440 IF A(S)<414 THEN C«13:G0T0540 

470 IF A(S)<458 THEN G=14!G0T0540 

480 IF A(SK705 THEN G>15:COT0540 

490 IF A'SK732 THEN G=14!G0TG340 

500 IF A(S)<799 THEN G=17!GOT0560 

510 IF A(SK844 THEN C=18:G0T0540 

320 IF ACSKB93 THEN G»19:GOT0540 

530 IF A(SK940 THEN G«20:GOT0560 

340 IF A<SK9B7 THEN G«21.'G0T0540 

350 IF A(S>=-987 THEN PRINT'Y POINTS TOO LARGE TO BE GRAPHED' 

540 IF G= GG THEN 5C«G :GGT01T80 

570 NEXT S 

530 G=>GG 

5'0 PET URN 

400 '-STATISTIC: ROUTINE 

t-"tl*«*. **.*•' 
F A' 1 !*0 T KEN II7»2 ELSE II7»1 
630 FOR I» 117 to N 
6-K D=A' I>; c =P*0;i=H+DC2 
650 Ni 

IF 117*2 THEN N»N-1 
5/1 o*p/n 

680 V«'.N-K»K2>/« 

6-9 SI 

.?:fPIVT-MEAN = '!R 

■standard deviation ■ -jsd 
-■>:l»o:h»o:r2=o 

I" I yo N 

74* '=::y»a<i) 

'*x:K=K+Y:L-L«t2:M«M4VC2 

:*r:+x»y 

770 NEXT I 

730 B*(N»R2-K*J>/<N*L-Jt2) 

770 A»(K-B*J)/N 

800 J=B»(R2-J*K/H) 

310 M=M-KC2/N 

820 K»M-J 

830 P2=J/M 

840 PRINT-COEFF.OF CORRELATION (1 IS PERFECT) » -»SOR<R2> 

850 QQ«=-- 

840 PRINTtPRINT'DO YOU UISH TO PREDICT A FUTURE VALUE (YES/NO) »■ 

870 INPUT 00* 

880 IF 00**" THEN 840 

890 IF OQ«»*NO* THEN 930 

900 IF ae«"-YES' THEN CLS 

910 INPUT-ENTER MONTH N0.( 1.2.. ..X ) YOU WANT ESTIMATE FOR'iX 

920 Y=AtB»X 

930 PRINT-PROJECTION ESTIMATED AS-.'USINC 0«»Y 

940 PRINT-ANOTHEP ESTIMATE (YES/NO) »": GOTO 870 




930 CLStPRINT'PPOGRAM CONCLUDED" :END 

940 CLSJPRINT'THIS PROGRAM PERMITS THE MANIPULATION OF 12»" 

770 PRINT'MGNTHS OF DATA TO/FROM RANDOM FILES. DATA MUST BE" 

980 PRINT' ENTERED AS DATE ( SEE REMARKS LINES ) FOLLOWED BY" 

9«0 PRINT" 'AMOUNT'. THE AMOUNT IS MANIPULATED AS SINGLE PRECISION." 

1000 PRINT'THIS PROGRAM WILL ALSO GIVE A VIDEO DISPLAY" 

1010 PRINT'WITH A GRAPH AND WILL PROVIDE STATISTICS ON DATA" 

1020 PRINT" IF DESIRED. OPTION »2 FOR ADD/DELETE/CORRECT ITEMS." 

1030 PKINI'UPIIUN IS ALLOWS LNlP.I W MONlH.TtAR AND PROCRAM THEN" 

1040 PKINI'NEIRIEVES COKRtSPUNUlNL. AMOUNT. " 

1050 PK1NI 

1040 '-PKUUKAN BY BETH PRENDERGAST 11/20/78 

1O70 *- t*(X) • MUNlH.YtAH 

1080 '- A<X> = AMOUNT 

1090 CLEAR(3500): DIM T«( 15* >: DIM M 150 >:PIHB< 150 )!DIM T< 130 ) 

1100 PR1NI "EN1ER! 1 - TO OPEN FILE FOR FIRST TIME" 

2 - BRING OUT WHOLE FILE FOR ADD/CORRECT/LOOKSEE 

3 - RETRIEVE A MONTH'S ENTRIES FROM A FI^E 

4 - PRINT TOTAL OF EACH FILE TO DATE 

5 - BATCH ENTER TO 1 OR MORE ACCOUNTS 



1110 PRINI 

1120 PRINT 

1130 PRINT 

1140 PRINT 

1130 INPUT 



.3150 




1140 ON GOTO 1170 .1280 .1810 .2710 

1170 CLSiGOSUB 2130 

1180 INPUT'ENTER FILE I.D. (IN QUOTES) DATA IS TO BE SAVED UHDER'IF* 

1190 LLS 

12*0 INPUT"NO. OF ENTRIES (MT.YR i ANT « 1 ENTRY )'>» 

1210 FOR X«l TO NtPRINT'ENTRY NO.'tX 

1220 LINEINPUT-ENTER MONTH.YEAR (YOU MAY USE OTB-' ~';Y«(X) 

123* INPUT'ENTER AMOUNT" (A( X KCLS 

1240 NEXT X 

1230 Z=N 

1240 '-MOVE TO PRINT ROUTINE 

1270 GOT0143" 

1280 CLS:GOS'JB2130 

1290 INPUT'ENTER FILE (IN QUOTES; TO t£ M 

1300 PRINT'FILE NAME IS '?:C0Sjc 23 

1310 ON ERROR GOTO 2280 

1320 OPEN'I'.l.F* ., . 

1330 CLOSE <K SlS 

1340 ON ERROR GOTO 

1330 OPEN"R'.l.F*:X*l 

1340 for i»i to lof(i):g?ti.::fo=' e*ctoi4 

1370 FIELD! >(E*15)AS DU«*.;iAS Yf.*AS A* 

1380 Y«(X)»Y«: MXJoCVV- A«> 

:39« u*»- 'tV Y»'X>=U« THEN 141* 

1400 x»x+i:next e: n : . 

1410 CL0SE1 ! N«X-1 

1420 '-MOVE to print routine 

1430 C^OtCLSIIM-UT'CAUSE AFTER EACH ENTRY PRINTS( YES/NO )'!00« 

1440 CLSi0*«-MM*-*«*.t«' 

1430 FOR '<=! TQ N 

1440 PRINT' €M'SY NC 'JXI'I ' JY«( X )»■-' JUSING 0«SA<X) 

1470 C=C--. 

14E IO*«'YES' INPUT'PRESS ENTER" 5Q1CLS 

lii • THEN FOR Y«l TO 400INEXT Y 

PRINT-TOTAL TO DATE » "SUSING 0«*C 

N»X-1 
■ANY (MORE) CORRECTIONS/ADDITIONS < YES/NO >»':OQ««-" 
jfPUT QO«: IF OQ«="NO" THEN 1440 
1350 CLSiPRINT'LAST ENTRY NO. IS "iX-11- ON file NAMED "; 

540 OQ«=" !GOSUB2300 
1370 INPUT'ENTER RECORD NO. FOR CORRECTION/ADD' IX 
1580 PPINT'ADD/RE-ENTER RECORD NO.'iX 
1590 LINEINPUT'MCNTH.YEAR (YOU MAY USE COMMA )'! Y«( X ) 
1400 INPUT-AMOUNT' !A(X) 
1410 IF DM THEN N*X:Z»N 
1420 PRINT' FILE uill NOW PRINT AGAIN - 
1430 INPUT -PRESS ENTER- »Q! GOTO 1430 
1440 CLStPRINT'DATA IS FROM FILE "SF«S" - "S 
1430 GOSUB 2300 

1460 00«»"!INPUT-DO YOU WANT TO SAVE THIS DATA ( YES/NO )' (00* 
li7( IF QO*='YES" THEN 170) ELSE 1740 
168* CLS:F*»":GOSUB2130 

1690 inpit'enter file name 'in quotes) for save'sf* 
1700 open'R'.i.f«:x=i:aa»int(n/17mi:for i»i to aa 

1710 FOR E-0 TO 14 

1720 FIELD1.(E*13)AS DUM«.11AS Y«.4AS A* 

173* LSET Y»«Y«(X) '. RSET A*=HKS*< A( X ) >! X'Xtl 

174* NEXT Et PUT1.I! NEXT I! CLOSE 1 

1750 cls:print-file has been SAVED AS "IF*:OQ««" 

1760 input-do you want a graph ( yes/no >"(qq« 

1770 if qq*="yes" then 11* else qq«»" 

1780 input'do you want statistics ( yes/no >'iqq« 

179* if qq«»-yes- then 41* else qq«»":cls 

1800 clstprint'progran concluded" ceno 

1810 ci=o:cls:goto 1820 

1820 print'this routine gets am't when given the date....- 

1830 print-enter the date as it is in the file...' 

1840 FOR Y=»l TO 400JNEXT Y 
1830 CLStCUSUB 2130 

1840 Input-enter file (in quotes) to be read-sf* 
1870 lineinput-enter date (you may use a comma) t"»t* 
1880 '-bb*»2 & cc*«3 blanks to make t*= 11 
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1390 BT'LENCT*) : BB«=" 



CC*» 




1900 IF B7<"8 THEN PRINT'YOU HAVE NOT FOLLOWEr INSTRUCTIONS" IEND 

1910 IF 17^9 THEN PRINT'YOU HAVE NOT FOLLOWED INSTRUCTIONS" tENB 

1920 IF B7 * 8 THEN T*«T*tCC« ! GOTO 19*0 

1930 IF B7 « 9 THEN T»*mBB« : GOTO 19*0 

19*0 ON ERROR COTO 2280 

1930 *00«=":CLS: INPUT-PRINTOUT OF TOTAL (YES/NO) "IPO* 

I960 OPEN" I ".l.F* I CLOSE 

1970 OPEN"R".ltF» : X«l 

1980 CLS 

1990 FOR 1=1 TO LOF(l) ! GET Itlt FOR E* TO 16 

2000 FIELD l.'E*15> AS HUM. 11 AS Y«>* AS A* 

2010 Y«<X>=T« : A'X) ■ CVS(A«) 

2020 0«»"m**-*M.#«" 

2030 IF Y*CX> * T« THEN 20*0 ELSE 2040 

20*0 FRINTY*(X>r-"JUSINGO«iA<X> 

2030 C1»C1+A(X> 

2o<o y=x+i: next e: next i: close i 

207* IF 0P«« "NO* THEN 2120 

2080 LPRINTCHR«( 30 ) 

2090 LPRINT F»»" - "i:GOSUB2300 

2100 LPRINT T*i" - "!USING0*;C1 

2110 LPRINT "FILE SEARCH COMPLETE" tLFRINTCHRW 29) 

2120 PRINT-FILE SEARCH COMPLETE" IPRINTTPRINT-ROUTINE CONCLUDED" 

2130 G0T021*0 

21*0 PRINT-E1-HOUSE I T/A/3tU/(1 >' ."E13-MEDICAL" 

2150 FRINT"E2-«0TELS-..-El«-CLJB- 

2160 PRINT"E3-MARKET",,"E15-SCH00L" 

2170 PRINT"E*-tMTERMIN".."E16-TRASH" 

2180 PRIICI"i:!-L"<L';;VUKE".."El7-MISC" 

2190 PRIN'T-E6-GA3 U . .'E18-TRIPSC TOTAL >" 

2200 PRlNi-E/-iNSR".."E19-PH0NE" 

221C PRIf>T"E3-CAR-.."E20-ELEC" 

2220 rp!NT'E?-CLO' , HES/D r 

223'- r'RI«IT'E10-CLOTHES/N- 

22*0 PS INT " El 1 -CLOTHES/B" 

2250 P»IHT'EI2-RESTAURANTS- 

1 >''f»'N 

-rint'yo'j are attempting to read from a nonexistent file" 
^kimt-'rogran concluded": end 
if f*="e1" and o0««"yes" then lprinttab< 15 ) "house- 
ip f«^"e1" then print "house" 

2320 if f*«"e2" and qo*»"tes" then lprinttab( 15 ) "hotels" 

2330 if fm-e2" then print "hotels" 

23*0 if f«*"e3"and 0q«*"yes" then lprinttabc 15 )"super market" 

2330 if f*="e3" then print "super market" 

2340 if fm"e*"and qq*«"yes" then lprinttabc 15 >"entertain" 

2370 if f«»"e*" then print "entertain" 

2380 if f«="e5"anb 00«»"yes" then lprinttabc 15 >" drugstore" 

2390 if f«»"e3" then print "drugstore" 

2*00 if ft»"e6"and q0«*"yes" then lprinttabc 15 )"gas" 

2*10 if f«»"e6" then print "cas" 

2*20 if f«*"e7"and 00»»"yes" then lprinttab< 13>-insur." 

2*3u if f*="e7" then print "insur." 

2**0 if f«»"e8-and 00«='yes" then lprinttabc 15 >"car" 

2*30 if f«="e5- then print "car" 

2*60 if f«»"e9"ant! 90«»"yes" then lprinttabc 15 )"clothes/d" 

2*70 if f«s"e»" then print "clothes/d" 

2*80 if f«;"e10-and q0**'yes" them lprinttab( 15 >"cl0thes/m" 

2i?< if "«.-ek" then print "clothes/m" 

.^•e:i"and g9*="yes" then lprinttabc 15)" clothes/b" 
;f f»=-e::* then priv:t -clothes/B" 

IF F« = -^;2'Atra OGt^YES" THEN LPRINTTABC 15 >"RESTAURANTS" 
2530 IF F«a"cl2" THEN PRINT "RESTAURANTS" 
25*0 IF F«*'E13'ANI' OQ**"YES" THEN LPRINTTABC 15 1'NEDICAL" 
2551 if F»»*E13' THEN PRINT "MEDICAL" 

F F««*E14'AJfl) O0f = "YES" THEN LPRINTTABC 15 >"P.V. CLUB" 
2570 I<- F5=-E1*" THEN PRINT "p. V. CLUB" 

2380 IF F5="E13-ANP 9G**"YES" THEN LPRINTTABC 15 ("SCHOOL" 
£15" THEN PRINT "SCHOOL" 
=;"EI6"AND P0«="YES" THEN LPRINTTABC 15 TTRASH" 
241" IF F«»"E14" THEN PRINT "TRASH" 

rr Ft="E17"AND 00«="YES" THEN LPRINTTABC 13 >"NISC" 
2630 IF F*="E17" THEN PRINT "MISC 

26*0 IF F*»"E16"AND 00«="YES" THEN LPRINTTABC 15 )"TRIPSC TOTAL )" 
2650 IF F*="E18" THEN PRINT "TRIPS C TOTAL )" 
2660 IF F*»"E19"AND Q0«*"YES" THEN LPRINTTABC 15 VPHONE" 
2670 IF F«*"E19" THEN PRINT "PHONE" 

2680 IF F«="E20"AND 00»="YES" THEN LPRINTTABC 15 )"ELECTRIC" 
2690 IF F*»"E20" THEN PRINT "ELECTRIC" 
2700 RETURN 
2?10 CLS 

2720 INPUT"HARD COPY C YES/NO )"(O0* 
2730 IF 00*="" THEN 2720 ELSE 27*0 
27*0 IF 00*""YES" THEN 2730 ELSE 2790 
2730 INPUT-DATE C XX/XX/XX )• »DATE« 
2760 LPRINTCHR*C0D:LPRINTCHR«C30) 

2770 LPRINTTABC 12 )" " ;DATE*»" • 

2780 LPRINT 

2790 GOTO 2880 

2800 REM- BLINK ROUTINE FOR DAILY 

2810 CLS 

2820 PRINTMOO." INSERT DISK TO BE TOTALED CENTER)" 



2830 
28*0 
2830 
2860 
2670 
2880 
2890 
2900 
2910 
2920 
2'30 
29*0 
2950 
2960 
2970 
2980 
2990 
30C0 
3010 
3020 
3030 
30*0 
3030 
END 3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
31*0 
3130 
3160 
3170 

3180 
3190 
3200 
3210 
3220 
3230 
32*0 
3230 
3260 
3270 
3280 
3290 
33"0 
3310 
3320 
3330 
33*0 
3330 
3360 
3370 
3380 
3390 
3*00 
3*10 
3*20 
3*30 
3**0 
5*50 
3*40 
3*70 
3*80 
3*9< 
3510 



3310 
3320 
3530 
35*0 
3550 
3540 
3370 
3380 
33*0 
3600 
3610 
3620 
3630 
36*0 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
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ELSE 2870 



FOR Y»l TO lOOtNEXT 

B«=INKFY« 

IF B«="" THEN 2860 

CLS: GOTO 2820 

RETURN 

T«*"E-:G0SUB 2800 

Z-ltSUfM 

C**STR*C Z ) 

IF LENCC«>=2 THEN N«I 

IF LENCC*)»3 THEN N=2 

D«= RICHT*CC*.N) 

F«=mD«:ci»o 

OPEN"R"tltF«:X-l 

FOR 1*1 TO LOFC1): GET 1. 1 IFOR E-0 TO 16 

FIELD lfCEUS) AS DUM*. 11 AS Y«. * AS At 

U«»" 

R*« Y»! IF R« » U« THEN CLOSE tt COTO3030 

y«cx>=y«:acx>=cvsca«) 

Cl'CltACX) 

X*X«i: NEXT El NEXT II CLOSE 1 

tc z )»ci : o«=- «««»« 1 1» . »#• : sum=sum+tc z ) 

IF 00«="YES" THEN 3050 ELSE 3060 

GOSUB2300 :LPRINTTABC20)F»i"-"iUSINGOtiTC2>: 

PRINTF«S"-"»USINGO«iTCZ> 

IF Z=20 THEN 3100 

Z«Z+1 

GOTO 2900 

IF OQ«*"YES" THEN 3110 ELSE 3120 

LPRINT:LPRINTTABC10)-GRAND TOTAL TO DA t E IS-(USINCO«:SUM 

PRINTIPRINT'GRAND TOTAL TO DATE IS -IUSINGOt.SUM 

LPRINTCHR*C 02 )!LPRINTCHRtC 28 > 

END 

GOSUB 2130 

INPUT-ENTER FILE I.D.CIN QUOTES) DATA IS TO BE SAVED UNDER-SF* 

CLS! PRINT-ENTER AMOUNTS! ONE AT A TIME! ENDING UITH FOR FILE ") 

IGOSUB2100 

CO»0 

FOR X=l TO 100 

INPUT ACX): IF ACX)«» THEN 3220 

CO*CO+A(XKNEXT X 

PRINT-TOTAL IS.' -;CO 

LL9«LEN CF») 

IF LL9*3 THEN W«2 

IF LL9=2 THEN VV=1 

Z=VALCMID«(F».2iVV)) 

TCZ)«CO: OP«=-" 

INPUT" DO YOU HANT TO MAKE ENTRIES FOR OTHER ACCOUNTS C YES/NO)" SOP* 

IF OP«="" THEN 3280 

IF 0P«»"YES" THEN 3150 ELSE 3310 

LINE INPUT "ENTER HT./YR. FOR SAVE?" SO* 

FOR X* 1 TO 150 

acx>»o:y»cx>-" 

NEXT X 

CLSIPRINT'SAVING TOTALS" 
T*»"E"! Z«l 

IF TCZ'^-O THEN 3180 ELSE Z»Z+!:IFZ>20THEN END ELSE3370 
FOR Y* 1TO 50:NEXT Y!Ct«STR«CZ) 
CLOSE 1 

IF LEN CC«>«2 THEN N-l 
IF LEN (C«)=3 THEN N=2 
D*» RIGHTS C«rN) 
F*«T$t?« 
PRIHTF*f 

'-CHECK TO SEE IF FILE IS ON THE DISK 
ON ERROR GOTO 382 ■■ 
OPEN"I",l,F«:CLOSE 1 
DM 5RR0R ROTO v 
•DD»-255 BLANK? TO CLEAR BUFFER 



OPEN"F"-l.F«:FIELD 1.255 AS Z» 

LSET -t»DP«:CLOSE II FOR Y-l TO 50 :NEXT Y 

'-"ILE EXISTS 4 MUST BE REAP BEFORE WRITING TOTAL 

OPEN"F-.lfF«:X=i:L=L0FCl ) 

GET1.LIFOR E<0 TO 16 

FIELD 1f(E*15) AS DUN*. 11 AS Y*.4 AS A* 

U«=" 

'-SET FAKE VARIABLE TO SEE IF DATA FIELD IS EMPTY 

R«'Y«:iF R«'U* THEN 3620 

y«x)»y«:acx)*cvsca*> 
x=x*i:next e: goto 3750 
y«c x >«o* : ac x >=tc z ) 

CLOSEtFOR Y=l TO 50INEXT Y:OPEN"R".l.F« 

FIELD 1.255 AS Z«ILSET Z«=DD* JCLOSEIFOR Y=l TO 10TNEXT Y 

OPEN"R".l.F« 

H=l 

FOR E=0 TO 16 

FIELD l.CE*15) AS DUN*. 11 AS Yt. * AS A* 

IF Y«CM)»"" THEN PUT l.L:G0T03720 

LSET Y««Y»CM): RSET A«=MKS«C AC M ) ) 

M=H+1SNEXT E: PUT l.L 

close i :forx«itoi50 :y«c x )«•• : ac x )«o :nextx 

IF Z*20 THEN END 













3740 Z*Z«: COTO 3370 

3750 '-START A NEW SECTOR-LAST READ SHOWED SECTOR FULL-CLEAR BUFFER' 

3760 CLOSE KFOR Y*l TO 50! NEXT Y: OPEN-R'.l.F* 

3770 FIELD lt255AS Z«!LSETZ«=DDi:CLOSEl :FOR Y«l TO 10: NEXT Y 

3780 0PEN-R'.1.F«:FIELD 1.11 AS Y«,4 AS A«>240 AS DUH4 

3790 LSET Y«»0«: RSET A«=HKS«< T( Z ) ) 

3800 L=L+i: PUT t.L 

3810 GOTO 3720 

3820 '-FILE MUST BE CREATED » TOTAL WRITTEN 

3830 '-BD«=233 BLANKS TO CLEAR BUFFER 

3840 CLOSEi:0PEN"R'.l.F« 

383C FIELD 1.255 AS Z« 

386f DD«*" 



3870 LSET Z$*DD« 

3880 CLOSE 1 

3890 OPEN'R'.l.F* 

3900 FIELD 1.11 AS Y». 4 AS A«. 240 AS BUM 

3910 LSET Yt«0«: RSET A«»NKS«( T( Z ) ) 

3920 PUT l.ltCLOSE 1 

3930 IF Z=20 THEN END 

3940 Z»Z41 

3950 RESUME 3370 




TAhPLE OUTPUT 



.07/22/79. 



HOUSE 

El- 
MOTEl.S 

E2- 
SUFER MARKET 

E3- 
ENTERTAXN 

E4- 
!.*.-■ -r -TORE 

E3- 
GAS 

E6- 
INS'JR. 

E7- 
CAF 

E8- 
C'.OTHES/P 

E9- 
CLOTHES/M 

ElO- 
CLOTHES/P 

Ell- 
RESTAIJRANTS 

E12- 
HEniCAL 

E13- 
P.W.CLUB 

El-*- 
SCHOOL 

E15- 
TRASH 

E16- 
MISC 

E17- 
TRIPS< TOTAL > 

Eie- 

PHONE 

E1V- 
ELECTRIC 

E20- 



*1 .21A.77 
♦272.30 
*79.96 
* 137?. 32 
*46.66 
*379 . 25 
*68.00 
«89. lO 
♦lOO .OO 
♦250 . OO 
*300 .OO 
*300 .OO 
♦ O .OO 
*o .OO 

•o.oo 

to.oo 

*o .OO 

♦ •♦20 .OO 

♦134.38 



*738. 12 
GRAND TOTAL TO DATE IS «4.527.86 






• PETMiMv PRENPERGAST 10129 
. WRITTEN - 

' .■TRAKSFE^/tXP' 

• "UT'MN* HARD C0FY OF T0TA 
1 f BETHANY FRENPECG'' 
' -442-1902. TH" 
ROUTINE TO BE RUN WIT" 

[TIALIZING DAILY '< 
TRANSFER Of TOTALS T? - 
<*ft COI 

"- 9LTNK ROUTINE FOR BAIL.' 
16' - 






-A.NE N. 

:l:ty 
-pose 
-er 



17* 


















°P!«TiMO0."INSER T DAILY 

i to ioo:next y 

»< = !* >-EYI 

IF B4«" THEN 210 EL' 

RCH- BLINF ROUTINE 

••■?r*TP4'v.,":»isERT >ic>) 

■ TO --.n; «JEY~ I 
•^TN*EYt 
IF ?»*"" "MEN290 

clj: bit 

RETURN 

T«»»E':eesui 

z=i 

<:*=str«'T! 

:f len(c«>=: then 

*f len(m>*3 the'- 

M* P.U 

F4=-;-i.p«-ci= n 

■ 






- E-P TO 16 

; ^s y«. 4 as a« 



11 GOT0470 



.3SE 1 



ELSE 500 

•-' »T( z >:lprintchr«< 29 1 



■ 



"tCOSUB 230 
T./YR. FOR SAVE?" 



■G* 



'0TALS" 




iEXT Y:C«=STR«(Z) 

•HEN N»l 
THEN N»2 
• f) 



- rn if file is on the disk 

I 1480 
"KCL0SE 1 

T-O (I 

awS TO CLEAR BUFFER 



-'.l.FilFIELF 1.253 AS 2% 
"- ZMDD«:CL0SE It FOR Y=l TO 50 INEXT Y 
• ." EYISTS J NUST BE READ BEFORE WRITING TOTAL 

■-!.F*:Y = t:L=L0 ,r ( 1) 
' • TOR E=0 TO 16 

• EtlS) A3 D'JNt.ll AS Y«»4 AS At 
• 
SET FAKE UARIABIE TO SEE IF DATA FIELD IS EMPTY 
■YI1IF R«»U« THEN 850 
'--CVS' A« ) 
-ItNEYT EI GOTO 980 

'=0t: MX)'T(Z) 
^E:f0P Y"l TO 50INEXT Y:0PEN"P" »1.F$ 

"lp tt255 as z«:lset z««rD« :clqse:for y-i to ioinext y 

EN'ft'rlrFI 

■ "=0 TO 16 
tELJ 1»<E*15) AS DUN*. 11 AS Y«, 4 4S AS 
-«(*)=•- THEN PUT I.L:G0T0«5P 
' Y««Y«(N)I RSET A«=HKS*< A< H > ) 

<t*f c=«*!:next e: put i.l 

• -fcrx*itoi50 ;y$< x )«-• :a< v >=« :nextx 
t-ien :oso 

E«Z4t! GCTP 610 

a NEU SECTOR BECAUSE READ SHOWS LAST SEC" CLEAR BUFFE| 

• :for y=i to so: next y: open"R".i.f« 

'ELI' N255AS Zt:LSETZ»=rr«:C!.-G-EKFOR Y=! 

ilrFCFIELl !•« AS A».240 A3 DUH« 

M0C PSET AMHJ 
IfL 

••(• i-,"T1 95) 

ls:print'?o you wish to kill and reinitialize cld daily files iye= • 

■ Ml 

1(70 IF 00«*"YE3" THE^ 

IF B0«»"N0" THEM "RINT-PF^RArt CONCLUDED" :ENI 
tF Mf.-' TH-N 1050 



76 






:mg FILES" 

;=•£•: z=i 
- I 

N N=l 

■- »*2 
■ 

t=TI*Oi 
c *> 

to so : hjxt y 

■ IITIALIH FILES FOR MEW MONTH 
• NEXT I 

•r NT r? NT./TR.(U8E Ct 
FOR FIRST ENTF. 

■ • -- INITIALIZING FILES" 

I 

TH E M N >l 

MM n-EN n«c 

! .N^ 

■ 



-■: 'p",l .F« 

•.-■: AS Y«.« AS A-.240 AS DUN* 
■■SET A«- MK3»(A<X>> 

- gunt'Vt 
•;: close! 

jos next v 

r THEN 1460 

L44C CLSiPRWT' FILES HAVE BEEN INITIALIZED 
- = INT!PRINT"PROGRA>« CONCLUDED": END 
•FILE BUST BE BtEATEJ 4 TOTAL WRITTEN 
.: ; 35! FLAW TO CLEAR BUFFER 






tOPEH'R". 

••255 AS 

cn«" 



.r» 



SET '««DD* 

ose i 

=-EN"R-tlfF* 

M Y«, 4 AS A«t 240 AS DUft 
.SET Y««5t: R3ET A«»HKS«< T< Z > ) 
■ • 1 ICLOSE 1 

N 1050 
"=Zt! 
■' 



n« nana.. 
oxm or «xam ant* - o> 



>m»mmmmmm»m»*#* 



IN 




10 ' -PROGRAN LISTING FOR CREATIVE COMPUTING - 07/15/7? 

20 '-PROGRAM BY BETHANY PRENDERGAST 904/642-1902 TO BE RUN 

30 '-CONJUNCTION WITH EXPENSES PROGRAM. 

40 CLS:CLEAR(5000 IIDIM Y*( 200)1 DIM A< 120 K DIM A*( 120 ) 

50 LPRINTCHR«<30> 

60 LPRINT" GRAPH EXPENSE ACCOUNT TO LINE PRINTER. 

70 PRINT" GRAPH/EXP PROGRAM" 

80 INPUT"ENTER NO. OF LINES ON X-AXIS DESIRED (54 TO A PAGEl'fLL 

90 INPUT'ENTER FILE (IN OUOTES ) TO BE READ'SF* 

100 LPRINT" GRAPH OF ACCOUMT NUMBER - "!F$ 

110 0PEN"R".1»F«:XM 

120 FOR 1=1 TO LOFdKGET l.KFOR E=0 TO 16 

130 FIELDli (E*15)AS DUMtrllAS YJ.4A3 At 

140 y«(X)»y»:a(X)=cvs(a«) 

150 u»»" "!if yi(x)«u« then 170 

160 X'XtKNEXT EtNEXT I 

170 closei:n»x-i 
180 print"workinc" 

190 Z=N 

200 '-CHANGE Y VALUES TO INTEGERS 
210 FOR X= 1 TO Z 
220 A<X;=INT(A(X)t.5) 
230 PRINTA(X)! 
2*6 NEXT X 

150 'CHECK THAT VALUES OF Y NOT > "0 FOR LPRINT 
260 FOR X * 1 TO Z 
270 IF A(X»90 THEN 290 ELSE NEXT X 
280 G0T0410 

290 '-SCALE DOWN Y TO PERMIT LPRINT 
300 IF A<X» 90 THEN D=2 
310 IF A(X))180 THEN D»4 
320 IF A(X»360 THEN r>8 
330 IF A<X»720 THEN P-10 
340 IF A<X»900 THEN 0=20 
350 IF A(X)>1800 THEN 860 
360 IF D>0 THEN LPRINT 
370 FOR X= 1 TO Z 
380 A<X)=INT('A(X)t.5VD> 

390 '-GO BACK AND CHECK ALL NUMBERS AGAIN FOR SCALE 
400 NEXT X : GOTO 260 
410 '-DETERMINE WHERE ON LINE Y FALLS 
420 FOR 1= 1 TO Z 

430 '- SET UP A«(I) TO EQUAL NO. OF BLANKS * TO A< I > 
440 FOR L«l TO A( I ) 
450 S«»S«t"." 
460 NEXT L 
470 At(I)«S« 
480 PRINTAtdi 
490 St="" 
500 NEXT I 

510 CLStPRINT-COMPUTING GRAPH FOR LINE PRINTER" 
520 LPRINTCHRV30X" 10 20 30 

60 7< 80" 

-A«(I) NOW HAS NO OF BLANK'S CORRESPONDING TO INTEGER VALUE OF A( X ) 

-THIS PROGRAM GRAPHS NUMERIC DATA TO THE PRINTER 

-SET STRING OF *"♦" SEPARATED BY BLANKS 

560 T«*"0t+t" 

570 FOR X* 1 TO 21 

580 T**T«+"tt++" 

590 NEXT X 

600 '-SET UP Y AXIS FOR PRINT 

610 T««T»t"ttY" 



( Y AXIS VALUES HAVE BEEN DIVIDED BY ".D)")" 



40 



530 
540 

550 



i t 

i ■* . 

I ■* 

i -t 

' ■ — 

i • 

, 1 — 

\l~V//~l~~-~-~.~~.'~. 1 — 

( _——..-—— — ^ 

{ ~~ • — 



620 LPRINTT* 

630 '-SET STRING OF 

640 FOR X = 1 TO Z 

650 L*«"*— " 

660 FOR Y« 1 TO 22 

670 L«*L«t" " 

680 NEXT Y 

690 P=LEN(A«(X)) 

700 IF P=0 THEN 790 

710 A«=LEFT«L*.<P>> 

720 Pl»?l-<Ptl ) 

730 BfzRICHTt(L«iPl> 

740 Pl-0 

750 L«»A» T -e"TB« 

760 LPRINT L« 

770 L«="":A»"""SB«=" 

780 GOT0820 

790 B«=RIGHT*(L«f83) 

800 L«="«"tB« 

810 COTO 760 

820 NEXT X 

830 if z<60 then goto 880 
840 lprint"X":lppintchr«<28> 

850 END 

860 CLS:PRINT"Y POINTS ARE> 1800 

870 END 

880 FOR X- 1 TO ( LL-Z ) 

890 «♦•"+" 

900 FOR 0- 1 TO 9 

910 W«»W»t" " 

920 NEXT 



-"S AND THEN PUT "f* WHERE IT BELONGS ON LINE 




. PLEASE SCALE DOWN « RERUN I" 

930 LPRINT Ul 
940 NEXT X 
950 LPRINT-X" 
960 LPRINTCHRt(28) 
970 END 
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Stock Market Analysis 



Note: This program listing was 
made by running the Level I to Level 
II conversion program. To convert 
back to Level I, change the array 
A( ) to @. To run in Level II, add a 
dimension statement that reads: 
DIM A(233). 



Introduction 

For years Wall Street firms have 
used large scale computers to forecast 
the trend of the stock market and to aid 
in individual stock selection. The 
advent of small home computers has 
led the individual investor to attempt to 
partially replicate such large systems 
with limited storage capacity and 
computing power. 

The individual investor with little 
time for independent study has usually 
relied on the advice of his broker, tips 
from associates or brief fundamental 
analyses. There is evidence that even 
the best advice is not very good. 
Speaking of some popular advisory 
services, Shepard has said, "The 
empirical evidence manifestly refutes 
the hypothesis that these seven 
sources of investment guidance af- 
forded superior insight into the stock 
market between 1966 and 1971." 

There is a need, therefore, for a 
system of stock market advice to ser- 
vice the individual investor. Small 
home computers make it possible for 
him to control and understand the 
input and output to such a system. 

System Requirements 

To be used, the stock market 
analysis system must meet certain re- 
quirements. 

1. It must be simple. Stock market 
systems can be extremely complex. 
Yet, the systems that are used and ap- 
preciated are those which are easily 
understood. 

2. It must not be time consuming. 
The system should use a small set of 
readily available statistics that may be 
input directly into the system. 

3. The system should be more 
than can be easily done by hand. That 
is, the computer should serve some 
function other than automating a 
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simple calculation. 

4. The system should make deci- 
sions. Rather than compute derived 
statistics requiring human judgement, 
the computer should use pre-pro- 
grammed decision rules togiveexplicit 
investment advice. Levin, president of 
an advisory firm using large-scale 
computers has said "Anyone who says 
stock market forecasting is an art has 
an ego problem." This would suggest 
the existence of indicators of future 
market performance. 

5. It should be technically sound. 
That is, the indicators and decision 
rules should be more than artifacts. 

6. It should be verifiable. After the 
fact, it should be possible to determine 
whether the advice was correct. 

Fundamental vs. Technical Analysis 

Even with these requirements 
there are still choices. Fundamental 
analysis uses economic indicators, 

There is often no rela- 
tionship between the 
price of a stock and 
the fundamental para- 
meters of the company 
underlying the stock. 

price/earning ratios, earnings growth 
and assessment of management as in- 
dicators of the underlying value of a 
stock and its investment potential. 
Technical analysis, on the other hand, 
is concerned only with current market 
trends and cycles. The current price is 
said to integrate all the complex factors 
and. therefore, its movement is all that 
matters. 

There is often no relationship be- 
tween the price of a stock and the 
fundamental parameters of the com- 
pany underlying the stock. These para- 
meters, in a general way, can provide 
information about the attractiveness of 
the stock to other investors but tech- 
nical analysis will usually be required 
to determine when to buy. Blackman 
has said that "Every major move in 
every listed stock is shown by charts." 

The techniques described herein. 



78 



therefore, presuppose that a list of 
stocks whose fundamentals appeal to 
the investor has been drawn up. Charts 
on all these stocks are maintained and 
interpreted by the pre-programmed 
decision rules. Trend statistics are dis- 
played but specific advice following 
from the decision rules is also shown. 
Therefore, while fundamental analysis 
is not overlooked, the primary focus of 
this system, called the Personal Stock 
Advisor, is to use technical analysis to 
point out opportune buying and selling 
points. 

Trend Equations 

Much of the philosophy of this 
work comes from Zahorchak and 
Blackman. The latter has said that, in 
the stock market, "a trend will con- 
tinue in the same direction until some- 
thing important forces a change." The 
key is that one need not predict the 
absolute lowest price to buy or the 
highest price to sell in order to make a 
profit. One may wait until the trend is 
signalled by the charts and then com- 
plete the transaction. 

The general trend of the market 
can be assessed using an overall 
market index, such as the Dow Jones 
Index, New York Stock Exchange 
Index or the Standard & Poor 500 
Stock Index. Although any of these 
might do, because they generally 
represent the market and are readily 
available, the S&P 500 was chosrn be- 
cause it was felt to combine a reason- 
able balance of representativeness and 
volatility. 

Short, medium and long term 
trend records are kept on S&P 500 
using exponentially weighted moving 
averages on a weekly basis. If A { re- 
presents the observed index at time t, 
then the following formulas show how 
these averages are updated. 

(4.1) Short Term 

St+1 = .667S t + .333At+l 

(4.2) Medium Term 

M t+1 = .875M, + 125A t+1 

(4.3) Long Term 

L t+1 = .950L, + .050A t+ i 

The short, medium and long term 
trends represent approximately 5, 15 
and 40 week moving averages. It is the 
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Stock Market, cont'd... 

relationship among these trends which 
provide clues to market direction. 

One other statistic is felt to be 
important in tracking the market as a 
whole. The number of stocks in- 
creasing in price during the week 
(advances) and the number declining 
in price (declines). A medium term 
moving average of the cumulative sum 
of the differences is used for the 
advance/decline index, 
t 

(4.4) Ct= i (Advances— Declines) j 

(4.5) l t+1 = .875C, + 125C t+1 

The only number input for each 
stock is the closing weekly price. 
Short, medium and long term trends 

There is a need for a 
system of stock mark- 
et advice to service the 
individual investor. 

using equations (4.1), (4.2) and (4.3) 
are maintained for individual stocks as 
they are for the market. 

Decision Rules 

There are eleven basic decision 
rules used to decipher the patterns in 



the general market trends. They are 
not proven to be optimal yet they pro- 
vide a useful heuristic. Some of these 
rules were suggested by Zahorchak 
while others represent the piecing 
together of the thoughts of many. 
These rules do not cover all possible 
events because some patterns may 
simply not be clear enough. 

Because the storage capacity of 
the computer being used was limited 
to 4000 characters, the number of 
weeks of data which could be used to 
determine the trend was restricted to 
three. Therefore, a trend is defined as 
two consecutive weeks in the same 
direction. 

Two examples of the decision 
rules should serve to illustrate their 
use. The most obvious rule is: if the 
long term trend and the advance/ 
decline index trend is up and the short 
and medium term averages are higher 
than the long term average, stay fully 
invested. A less obvious rule is: if the 
long term trend and the advance/ 
decline index trend are down, the 
medium term average is less than the 
long term average, but the short term 
average is greater than the long term 
average this is a bullish sign. 

The seven decision rules for in- 
dividual stocks concern their trends 
but may also involve the trend of the 
general market. The simplest rule is: if 



the long term trend is up (down) and 
the medium term and short term 
averages are above (below) the long 
term average hold (avoid) the stock 
regardless of the general market trend. 
Another rule is: if the long term trend is 
up, the medium term average is higher 
than the long term average and the 
short term average is below the long 
term average, buy the stock if the gen- 
eral market trend is favorable and sell 
ifiUsnot^^^^^^^^^^^^^^^^^ 

The system clearly 
identified some win- 
ners. 

The Results of Its Use 

The system was programmed and 
loaded with five weeks of data before 
records of its performance began to be 
collected. At the time this paper is 
being written only 25 weeks of data 
have been registered. This is too short 
a time to completely evaluate such a 
system. Furthermore, during this 
period the market itself remained 
virtually unchanged, rising only 3% 
over the span (January 12 to June 29, 
1979) and never changing more than 
3% from its initial value. This made it 
very difficult to assess whether the 
system can predict stock price per- 
formance. 
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Stock Market, cont'd... 

Except for two consecutive weeks 
in March and five weeks in May and 
June, the system has indicated a posi- 
tive trend to the market. Every signal 
has been to stay fully invested, except 
for the weeks indicated which were in- 
conclusive. This would seem to be the 
correct indication since the market did 
rise 3% during this time. 

Twenty-two individual stocks 
were also followed during this time 
period. These stocks do not represent 
a random sample but were chosen to 
represent companies with good funda- 
mentals in a range of industries. In 
practice it would be desirable to follow 
a larger set of stocks, perhaps 100 or 



so, in order to be sure to find some 
stocks worthy of consideration. 

In the analysis which follows it 
should be remembered that the sys- 
tem can be hampered by start up 
conditions. For example, the long term 
average which is supposed to repre- 
sent a 40-week average had only five 
weeks initially and even now has only 
30 weeks of information. This will 
affect the system in some indeter- 
minate way. Additionally, no assess- 
ment has been made in the use of the 
system for short selling, i.e. betting a 
stock will go down. Additional profits 
could perhaps be made there. 

The 22 stocks were divided into 
four groups based upon the actions 
taken during the 25-week test period. 



Group I 

American Air 
Boeing 

National Gypsum 
General Foods 
Caterpillar 



Stocks bought and sold during the period 
-9% 
-7 
- 1 
-7 
-4 



In each case a position was taken based upon apparently 
favorable trends. In a week or two it became clear that these 
trends would not materialize and sell signal was flashed. This 
demonstrates the systems ability to limit losses. 
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Group 1 1 



Campbell Red Lake 
Fedders 

Household Finance 
Kerr McGee 
Lone Star 
Rollins 



Stocks bought and still held at 
the end of the period 
+ 20% 
+ 46 
+ 6 
+ 18 
+ 6 
+ 10 



All stocks in this group have out-performed the market. 

Group III Stocks generally avoided or inconclusive 

during the period 
Beatrice Foods - 7% 

Corning + 1 

Holiday Inn + 1 

Johnson & Johnson - 6 

McDonalds 

TWC +3 

These percentages reflect the percent change between the 
beginning and end of the period. These stocks generally 
underperformed the market or gave patterns undecipherable by 
the system. 



Summary 

A set of system requirements was 
developed for a personal stock ad- 
visory system using a home computer. 
A system satisfying those require- 
ments was developed and checked 
over a sixteen week time span. The 
results were encouraging because 
losses were limited while some out- 
standing performers were identified. 
The analysis was hampered by the 
limited set of stocks, the short time 
period and the lack of conclusive 
direction by the market. 

It is planned to continue to evalu- 
ate the performance over several 
market turns. At the same time each 
decision rule will be critically studied 
for its ability to identify trends. D 



Group IV 



Bunker Ramo 

Crane 

Hecla 

Int'l Harvester 

Louisiana Land 



Stocks consistently held throughout 
the period 
+ 29% 
+ 13 
+ 133 
+ 5 
+ 56 



Some spectacular gains were recorded in this group. The 
system clearly identified some winners but included two stocks 
which have yet to perform spectacularly. 
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Here's your chance to cap- 
ture the mythological Wumpus. 
The dreaded Superbats and 
bottomless pits make wumpus 
hunting a risky affair as you 
scour the underground caves of 

rfi« 



$m tib® §@D 



his lair. Bagging the Wumpus 
wins the game but if you ac- 
cidentally stumble in to his 
cave, the Wumpus will enjoy 
a tasty dinner of sauteed com- 
puter freak. (Strategy Games) 






Space Games 
CS-8003, 32K, $7.95 



Asteroid Your torpedoes are 
your only defense against 
deadly and accurate aliens as 
you navigate through asteroids, 
stars, and hostile space mean- 
ies. Lunar You must master the 





4 



horizontal motion and speed of 
descent of your craft to land 
safely among the lunar craters. 
Star Wars Take an X-wing 
fighter into combat and save 
the rebel base camp by lining 
up the fighters in your sights 



and zapping them with lasers. 
Romulan Your sensors pierce 
the Romulan cloaking device 
but are a dangerous energy 
drain . . . watch out! The hedo- 
nous Romulans could be any- 
where! 
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Strategy Games 
CS-8004, 32K, $7.95 
Wumpus-1 and Wumpus-2 If 
you master the dodecahedronal 
cave network in Wumpus 1, you 
can tackle the five different 
caves of Wumpus 2, or you can 
design you own. Trap As you 
trail around the board at a 
quickening pace your object is 
to encircle and trap your op- 
ponent before he traps you. 
Hammurabi As ruler you cope 
with bad weather, rats in 
the grain bin, and restless 
peasants. 



Reading 

Comprehension 

CS-8201.20K, $50.00 

An entertaining and effective 
method of developing reading 
comprehension skills. Teacheis 
determine the topics, and dif- 
ficulty, of short stories and ac- 
companying multiple choice 
questions. A sample story, quiz, 
and easy-to-use 32 page in- 
struction manual are included 
(requires Cassette Extended 
Basic). 
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Air Traffic Controller 

CS-8001.16K, $7.95 
This realistic simulation puts 
you in the chair of an air 
traffic controller, responsible 
for 26 jet and propeller aircraft 
as they enter and leave your 
15 x 25 mile airspace. Under 



the ever present threat of col- 
lision, you give orders to 
change altitude, maintain a 
holding pattern, clear for ap- 
proach, and land at two air- 
ports. This favorite of the Cre- 
tive Computing Staff was writ- 
ten by an Air Traffic Controller. 




Sensational Software Catalog 
A 20 page illustrated source- 
book of educational, recrea- 
tional, and technical software 
is available FREE from Creative 
Computing. Well over 400 pro- 
grams on cassette and floppy 
disk; for Appie.ll, TRS-80 Sor- 
cerer, PET, Sol-20, Challenge 
and CP/M are included at rea- 
sonable prices. Circle reader 
service # 207 for your free cat- 
alog. 



Sensational Savings! Take 
advantage of our one dollar dis- 
count with the certificate on 
page 119 redeemable at your 
local computer store. If your 
favorite retailer does not stock 
the software you need, have 
him contact our retail marketing 
department. Or you can order 
directly from Creative Compu- 
ting. Send your check plus $1 
shipping and handling per or- 
der to Creative Computing Soft- 



ware. Dept. 202, P.O. Box 
789-M, Morristown, NJ 07960. 
Visa, Master Charge, or Ameri- 
can Express are also welcome. 
For faster service call in your 
bank card order toll free to 
800/631-8112. In NJ call 201/ 
540-0445. Circle reader service 
# 207 for your FREE 20 page 
illustrated catalog of micro 
computer software. 



creative 



software 



For a FREE Sensational Software Catalog of over 400 programs for eight popular systems circle reader service #207. 
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Don't Lose Sight at 40! 
GET 

DOUBLEVISION 

80x 24 Video Display 

with Upper arid Lower Case 

• Works with Apple II, Apple II Plus & PASCAL* 

• Full 96 ASCII Character Set 

• Fully programmable cursor 1-9 lines any direction, 
along with blinking at two rates or non blinking. 

• All software included for BASICS (optional for PASCAL*-) 

• Full cursor movement and inverse video 

• 50/60 Hz operation 

•Apple It • registered trademark of Apple Compute™. Inc. 



(Tj LIGHT PEN 



PET 
TRS-80 



Introductory Sale Price 

► PASCAL ■ortwere evetfebto tor $25 tddwoMi. 

"For all orders t«c«*«d twton mMMgM Apr* 30. tMO flag $»5 00 

DeTWi-t»ie»awne*ttfotF«»riA«nr«Allo>»Mp>o4 iil j fwMWpmew * 

Alw«^o*«r>»-i«<ataootorpo t >i 



$195 



OO 



'he Computer Slop 

16919 Hawthorne Blvd 
lawndale. CA 90260 

(213)371-4010 



MON. -SAT. 



CIRCLE 128 ON READER SERVICE CARD 



TRS-80 

■ Economy — $19 95 

(Plugs into tape recorder Batter- 
ies and sample program included ) 

■ Professional — $34.95 

(Plugs into expansion port Allows 
other expansion port use No bat- 
teries needed Includes Demo 
Game Cassette.) 
PET 

■ Professional — $29 95 

(Rugs into user port No batteries 
needed. Sample program in- 
cluded) 




No assembly necessary — ready to 
plug In. Demonstration program and 
complete documentation so you can 
write your own programs in BASIC 



<S 



MAIL COUPON TODAY 

3G Company, Inc. Dept CC (503) 662-4492 
Rt. 3. Box 28A, Gaston, OR 97119 



D TRS 80 Economy D TRS-80 Professional PET Professional 

$19.95 $34.95 $29.95 

Hush me 3G LIGHT PENS 

(Add $1 SO tor mailing and handling — $6 00 foreign.) 
Enclosed is I I ChecK or Money Order Master Charge D Visa 



Card No 
NAME 



Exp date 



ADDRESS 
CITY 



STATE 



ZIP_ 



REMEMBER, 3G OFFERS A 30 DAY 
UNCONDITIONAL MONEY BACK GUARANTEE! 
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Looking for a Wonderful Gift for a Child? 




Invite Katie Home for a Visit 




Finally. A delightful picture book adventure that 
explains how a computer works to a child. A new 
concept In children's literature, Katie and the 
Computer is both an exciting story that a child will 
want to read again and again and a simple exploration 
of computers. 

Katie is a little girl who takes a journey through the 
imaginary world inside her Daddy's home computer. 
Katie's adventure closely parallels the way a home 
computer actually works. The "Software Colonel" who 
guides her on the exciting trip explains the computer 
as the workings of Cybernia. 



Thrill with your children as they join the Flower 
Bytes on a bobsled race to the CPU. Share Katie's 
excitement as she meets up with the mean Bug that 
lassoes her plane and spins her In a terrifying loop. 
Laugh at the madcap race she takes with the Flower 
Painters by bus to the CRT. 

The story's information is augmented by easy to 
understand factual material. A significant publication 
in its ability to explain computers to children, Katie 
and the Computer is 44 pages, hard cover, 8Vsx11 
inches, fully illustrated in color. Just published by 
Creative Computing Press. $6.95 and . 75 shipping. 




Matching Program Bug T-Shirt 

T-shirts in a deep purple design on a beige shirt. 
Available in children's S, M, L. (Or treat yourself to one 
of these monsters in Adult's S, M, L, XL.) Specify shirt 
size when ordering. Bug t-shirt $5 postpaid, USA; $6 
postpaid, foreign. Katie and the Computer $6.95, plus 
.75 shipping postpaid in USA; $1.50 postpaid, foreign. 
Visa, American Express and Mastercharge cards 
welcome. Bank card orders may be called in toll free to 
800-631-8112 (in NJ call 201 -540-0445.) 

Creative Computing 
P.O. Box 789-M Morristown, NJ 07960 
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Catching those incorrect inputs 

The Challenge of Error Trapping 



Mike K. Summers 



Introduction 

In the School of Education at the 
University of Hong Kong we are 
designing and evaluating a variety of 
Computer-Assisted Learning (CAL) 
packages for use with low-cost micro- 
computers at school and university 
level. A typical CAL package consists 
of a computer program together with a 
student workbook and a teacher's 
guide. The teacher's guide should 
contain full program documentation 
together with a description of the 
educational aims of the package and 
suggestions for integrating the CAL 
work for the particular topic into the 
curriculum. Under the general guid- 
ance of the teacher, the student uses 
the microcomputer in an interactive 
mode to investigate problems posed in 
the student workbook. It is the inter- 
active nature of the relationship 
between learner and machine that 
often creates problems for both the 
user and the CAL package designer. 
This is because the packages them- 
selves must be user-proof. When the 
program requests the student to input 
information, inappropriate or incorrect 
responses (for example, typing errors) 
must be trapped. A trap is simply a 

It is the interactive na- 
ture of the relationship 
between learner and 
machine that often 
creates problems for 
both the user and the 
CAL package designer. 

program routine which checks the 
validity of the user's response to the 
computer's request for input. In the 
case of inappropriate or incorrect 
responses the trapping routine will 
inform the student of the nature of his 
error and suggest corrective action. In 
the absence of such a trap it is perfectly 
possible for an unwitting user to 
interrupt the program or even delete 
sections of it. This article is concerned 
with the general problem of trapping. 
Although the discussion below origi- 

John Willett. Mike Summers, School of Education, 
University ot Hong Kong. Hong Kong. 
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nates from work on computer-assisted 
learning, the information is of general 
interest since nearly all software 
designed for small computers involves 
some form of direct user-computer 
interaction (for example, gaming, 
simulation, computer art, small busi- 
ness applications and so on). The 
particular examples of trapping tech- 
niques described in this article refer to 
the Radio Shack TRS-80 microcom- 
puter with Level II BASIC and 16K 
RAM, since this is the machine for 
which we are designing CAL materials. 
However, most of the practical experi- 
ences and suggestions are equally 
applicable to other inexpensive micro- 
computer systems with extended 
BASIC interpreters. 



The need for traps 

When running a CAL program, the 
student is often required to input data. 
This data can be either NUMERICAL or 
ALPHABETIC. Depending on the 
nature of the data, a different type of 
input routine must be used. A typical 
routine asking for numerical input is 
listed below: 

50 REM **** INPUT ROUTINE 

#1 *•** 
60 PRINT "WHICH STUDY DO 
YOU REQUIRE. TYPE 1 OR 2" 
70 INPUT X 
80 IF X = 1 THEN 100 
90 IF X = 2 THEN 300 
100 REM **** START OF STUDY 
ONE **** 



300 REM "** START OF STUDY 
TWO **" 

Obviously, this type of routine satisfies 
the essential requirements of a CAL 
package in which the student is offered 
a choice of two studies. In practice, 
however, such a simple routine cannot 
guard against the possibility of erron- 
eous inputs. For example, if the 
student responds with any number 
other than 1 or 2, lines 80 and 90 will fail 
to detect the input and the program will 
automatically run to line 100 (the start 
of study one). If the student inputs 
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alphabetic data, then the BASIC inter- 
preter (which is expecting numerical 
input) returns its own error message. 
In the case of the TRS-80, the message 
REDO? appears on the screen. A 
further problem arises if the student 
inputs punctuation marks. With the 
TRS-80, a semicolon input produces a 
REDO? message, while commas and 
colons produce the error message 
EXTRA IGNORED (after which the 
program runs on to line 100). The 
trouble with messages of this kind is 
that they are either in poor English, or 

A simple routine cannot 
guard against the pos- 
sibility of erroneous 
inputs. 

are abbreviations which may be totally 
incomprehensible to the package user. 
However, there is a more important 
reason for designing programs which 
prevent machine error messages of 
this kind appearing. The advent of 
cheap microcomputers with memory- 
mapped video displays and graphics 
facilities allows the designer of CAL 
packages to present information to the 
student page-by-page. Such a page 
mode of operation should be con- 
trasted with the Teletype in which 
output is printed sequentially line by 
line. In the Teletype mode, the entire 
display scrolls up when the screen is 
full, so that information is eventually 
lost from the top of the screen. A 
microcomputer with graphics and 
memory-mapped video used in the 
paged mode allows very rapid presen- 
tation of information (a whole screen 
of information can be generated 
almost instantaneously) in a visually 
captivating form, and is ideal for CAL. 
An important focus of CAL program 
design is then to plan whole pages of 
attractive and interesting information 
with which the student is to interact. 
However, if an unforeseen machine 
error message such as REDO? is 
generated by the computer during 
program use, a carefully designed and 
attractive display can be destroyed. In 
the case of the TRS-80. REDO? may 
erase previously generated lines of 
display. More seriously, REDO? 
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Error Trapping, cont'd... 

causes the whole page to scroll 
upwards, so that planned information 
is premanently lost from the top of the 
screen. To avoid the problems, the 
CAL program designer must include 
trapping routines which not only check 
the validity of user inputs, but also print 
comprehensible corrective messages 
in good English at appropriate places 
on the screen. In other words, all input 
errors should be trapped by the CAL 
program itself so that the BASIC 
interpreter is never required to display 
its own error messages. 

Alpha and Numeric INPUTS 

Consider now an input routine 
designed for accepting alphabetic 
data. The routine below, for example, 
uses alphabetic data to turn the pages' 
of a video display: 

50 REM "•• INPUT ROUTINE 
#2 ***• 

60 PRINT "DO YOU WISH TO 
CONTINUE" 

70 INPUT R$ 

80 IF R$ = "YES" THEN 100 

90 IF R$ = "NO" THEN 999 
100 REM *•** START OF NEXT 

PAGE *•" 
999 END 
This routine is similar to the first one in 
that if the user responds correctly (in 
this case, with "YES" or "NO") the 
computer reacts appropriately. Also, if 
the user inputs any other alphabetic 
string (for example, "PERHAPS"), 
neither lines 80 nor 90 recognize R$ 
and the program automatically runs to 
line 100 where the page is turned. 
However, this input routine has one 
very important advantage over the 
routine designed to accept numerical 
input. If the user accidentally inputs 
numeric data, then the computer 
reacts in the same way as when an 
incorrect alphabetic string is input. 
This illustrates an important assymetry 
in the computer's handling of input 
data. In the case of the first input 
routine, an accidental alphabetical 
input when the computer is expecting 
numerical data results in an error 
message. In the second routine, an 
accidental numerical input when the 
computer is expecting alphabetic data 
produces no machine error message. 
This is simply a reflection of the fact 
that it is quite legitimate to store 
numbers in string form, but it is most 
definitely not legitimate to store 
alphabetic inputs as numbers. In both 
cases the user inputs are invalid, but 
the second routine does not upset the 
screen display with the unwanted 
REDO? error message. This fact is 
exploited in some of the trapping 
routines described later. The reaction 
of the second routine to punctuation 
mark inputs is similar but not identical 



to that of the first routine. This time 
commas, colons and semicolons all 
allow the program to run to line 100 
where the page is turned without user 
permission. As before, the comma and 
the colon produce the error message 
EXTRA IGNORED, but this time the 
semicolon does not produce the 
disruptive REDO?. 

The above discussion of problems 
which can arise from erroneous user 
inputs in interactive programs without 
traps, used two very simple input 
routines to provide examples. How- 
ever, it should be noted that more 
sophisticated input routines can lead 
to even more catastrophic results. For 
example, the sophisticated program- 
mer might decide to delete lines 80 and 
90 from the first of the above input 
routines and replace them by the 
single line 

85 ON X GOTO 100,300 
However, if the user now responds to 
the input request with a negative 
number, the TRS-80 prints the error 
message ?FC ERROR IN 85, indicating 
an illegal function call (the ON expres- 
sion GOTO line number, line number - 
statement is not valid for negative X) 
and the computer returns to the 
command mode. The program run is 
interrupted and the user confused. But 
potentially, there is a far greater 
problem than this. If, as a result of this 
confusion, the user now inputs a 
positive number, the corresponding 
line number will be deleted. Although 
situations of this kind are unlikely to 
arise, the CAL program designer must 
guard against all such eventualities to 
the best of his ability. This means he 
must devise as near-perfect trapping 
routines as possible. 

The CAL program de- 
signer must include 
trapping routines which 
not only check the valid- 
ity of user inputs, but 
also print comprehen- 
sible corrective mes- 
sages in good English at 
appropriate places on 
the screen. 

Types of trap 

We will distinguish between two 
types of trap, and discuss them 
separately. The first is concerned with 
trapping invalid user responses to the 
computer's request for alphabetic 
input, while the second deals with 
invalid responses to requests for 
numerical input. 

1. Alphabetic input 

A modification of INPUT ROU- 



TINE #2 which works reasonably well 
is given below: 

50 REM **** INPUT ROUTINE 

#3 "•• 
60 PRINT "ARE YOU READY 

TO CONTINUE" 
70 INPUT R$ 

80 IF R$ = "YES " THEN 110 
90 PRINT "INVALID RE- 
SPONSE. PLEASE RETYPE" 
100 GOTO 70 

110 REM **** START OF NEXT 
PAGE "•• 

It is most definitely not 
legitimate to store alpha- 
betic inputs as numbers. 

In lines 60 and 70 the computer 
requests alphabetic input. Line 80 tests 
for the positive response ("YES") 
which, if detected, results in a jump to 
the new page beginning at line 110. All 
other inputs, including both numbers 
and letters (or combinations), result in 
display of the corrective message 
INVALID RESPONSE. PLEASE RE- 
TYPE. Line 100 then causes a jump 
back to line 70 where the computer 
again waits for a valid user entry. In the 
case of the TRS-80, the only way the 
user can defeat this trap is by respond- 
ing to the input request with a comma 
or a colon. The computer then returns 
the error message EXTRA IGNORED, 
but program execution proceeds 
correctly (the INVALID RESPONSE 
message is displayed). However, a 
spurious and undesired error message 
will have been generated and, in the 
paged mode, this may completely spoil 
a carefully designed display. 

Marginal improvements of the 
above trap are possible using a 
combination of the TRS-80 statements 
PRINT @ position, Item list and CHR$ 
(expression), together with judicious 
use of semicolons. We will first briefly 
review the function of these two state- 
ments and of the semicolon. The 
PRINT @ position, item list statement 
allows information to be printed 
starting at any one of 1024 separate 
locations on the memory-mapped 
screen. Existing lines can be over- 
written, so that a message asking for 
user input can be replaced by a 
message indicating on invalid re- 
sponse, at exactly the same screen 
location. The CHR$ expression state- 
ment returns a one-character string 
whose character has the specified 
decimal ASCII code. For example, 
CHR$ (65) would return the letter A, 
since the decimal ASCII code for A is 
65. The interesting thing about this 
statement is that it can also be used 
with the ASCII codes for control 
functions. Of particular use is CHR$ 
(30), where 30 is the ASCII code for the 
control function which erases to the 
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Error Trapping, cont'd... 

end of the line (later). A semicolon at 
the end of a program line indicates to 
the computer that, when the line has 
been executed, the cursor should not 
move to the next line of output display, 
but should wait at the end of the 
current line of display. If, for example, 
the program line prints a request for 
user input on the screen, the cursor 
does not move to the next line to 
accept that input but waits at the end of 
the sentence requesting input. Let us 
now see how the above can be 
combined to produce a better trap: 
50 REM "•• INPUT ROUTINE 

#4 **** 
60 PRINT @448, "ARE YOU 
READY TO CONTINUE"; 
70 INPUT R$ 

80 IF R$ = "YES" THEN 110 
85 PRINT @448, CHR$ (30) 
90 PRINT @448, "INVALID 
RESPONSE. RETYPE"; 
100 GOTO 70 
REM *•*' START OF NEXT 
PAGE **** 
As before, lines 60 and 70 request 
alphabetic input. However, this time 
both the question and user response 
occur one after the other on the same 
line (the line beginning at screen 
location 448) because of the semicolon 
at the end of line 60. Line 80 detects the 
positive response ("YES") and causes 
a jump to the new page starting at line 
110. If the user inputs an invalid 
response, the existing question and 
the response are erased by line 85 and 
replaced (beginning at the same 
screen location i.e. 448) by the IN- 
VALID RESPONSE message of line 90. 
The interesting thing about this trap is 
that it is almost foolproof. All inputs 
except commas and colons are trap- 
ped as with input routine #3. As before, 
comma and colon inputs result in the 
error message EXTRA IGNORED, but 
with input routine #4 this is immedi- 
ately erased, and the trap continues to 
operate correctly (the INVALID RE- 
SPONSE message is displayed). We 
leave it to the more perverse reader to 
discover why this trap is only almost 
foolproof! 

Another interesting trap for either 
alphabetic or numeric input is one in 
which the user response is searched 
(parsed) for particular alphanumeric 
characters or combinations of char- 
acters. Consider the following input 
routine: 

50 REM ""• INPUT ROUTINE 

#5 **** 
60 PRINT "INPUT YOUR 

RESPONSE" 
70 INPUT R$ 

80 FOR N = 1 to LEN (R$) 
90 K$ = MID$ (R$, N. 1) 
100 IF K$ = "E" THEN 140 
110 NEXT N 



120 PRINT "INVALID RE- 
SPONSE. RETYPE" 

130 GOTO 70 

140 REM "•• CONTINUATION 
OF PROGRAM **" 
This routine searches the user input 
string to see if it contains the letter E in 
any position. Program execution is 
only allowed to continue if an E is 
detected. The core of the trap is 
contained in lines 80 through 110 
which search the input string one 
letter at a time looking for the letter E. If 
this is detected, there is a jump from 
line 100 to line 140, where the program 
continues. Use is made of two state- 
ments found in many extended 
BASICS (LEN (string) and MID$ 
(string, x, y)). Len (string) returns the 
number of characters in the string in 
decimal form. MID$ (string, x, y) 
returns a substring extracted from the 
specified string. This substring is of 
length y and is extracted starting at 
position x (i.e., x characters from the 
start of the specified string). In the 
above routine, each character of the 
string R$ is extracted in turn and 
becomes the substring K$. This sub- 
string is compared to the letter "E" in 
line 100, and if equivalence is not 
detected, the INVALID RESPONSE 
message is displayed and the program 
returns to line 70 and awaits a new 
input. Such a trap is useful in some 
CAL programs, but more obviously in 
word, spelling and code-type games. 
Several interesting modifications of 
input routine #5 are possible. One 
modification involves use of the TRS- 
80 statement ASC (string), which 
returns the decimal ASCII code of the 
first character of the specified string. 
This, for example, allows replacement 
of line 100 of input routine #5 by 

100 IF ASC(K$) = 69 THEN 140 
since the decimal ASCII code for the 
letter E is 69. In this particular instance 
there is no advantage in such a 
modification, but there are cases 
where use of ASC (string) can be of 
great value. One example might be a 
program in which the user response to 
the computer's request for input must 
consist only of alphabetic characters 
in a particular range (e.g., G through 
P). This can be achieved by rewriting 
line 100 as: 

100 IF ASC (K$) > = 71 AND 
ASC (K$) < = 80 THEN 140 
Since the decimal ASCII codes of the 
characters G and P are the numbers 71 
and 80 respectively, the trap will only 
let through combinations of letters in 
the allowed range. 

A final point to note about input 
routine #5 is that it suffers from the 
same pitfalls as input routine #3 
described earlier. However, use of the 
modifications included in input routine 
#4 will render the various forms of 
input routine #5 virtually foolproof. 



2. Numerical input 

Earlier we noted an important 
assymetry in the reaction of the 
computer to different types of input. 
An accidental alphabetic input when 
the computer is expecting numerical 
input results in display of the machine 
error message REDO?, but accidental 
input of numeric data when alphabetic 
input is expected produces no such 

The search for the perfect 
trap goes on! 

message. This assymetry can be 
usefully exploited when designing 
effective traps for numerical input. 
Consider the following: 

50 REM ***• INPUT ROUTINE 

60 PRINT "WHICH STUDY DO 
YOU REQUIRE. TYPE 1 OR 2" 
70 INPUT R$ 
80 R = VAL (R$) 
90 IF R = 1 THEN 130 
100 IF R = 2 THEN 300 
110 PRINT "INVALID RE- 
SPONSE. RETYPE" 
120 GOTO 70 
130 REM *'** START OF 
STUDY 1 **** 



300 REM *** START OF STUDY 

In line 70 the computer is expecting a 
string input, and when a number is 
input it is stored as the string R$. It is, of 
course, quite legitimate to store 
numbers in string form and no ma- 
chine error message is returned. 
Likewise, line 70 will accept accidental 
alphabetic inputs without display of a 
machine error message, but these will 
not be allowed through the trap. This is 
because line 80 extracts the numerical 
value of the input string using the VAL 
(string) statement, where VAL (string) 
automatically returns a numerical 
value of zero for string characters 
other than numbers. Lines 90 and 100 
detect the allowed inputs 1 or 2, while 
other inputs result in display of the 
INVALID RESPONSE message of line 
1 10. A combination of the above input 
routine with input routine #4 produces 
a trap for numerical input which is 
highly user-proof. 



Final point 

Although none of the traps de- 
scribed in this article are completely 
user-proof, some are very nearly so. By 
appropriate combination of the various 
techniques, the prospective program 
author should be able to design an 
effective trap suited to his needs. 
However, let there be no doubt, the 
search for the perfect trap goes on! D 
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CREATIVE COMPUTING 




Put the BYTE on the IRS with Aardvark™ 



In an era when computers are an integral part of 
business and entertainment, and computer software is 
more and more sophisticated, Aardvark" is yet another 
breed in advanced computer software. Aardvark's" 
Micro Tax series is a true user-oriented Federal 
Income Tax package. Specifically developed by 
qualified tax professionals for use on personal home 
computers, this low-cost, time-saving Aardvark" Micro 
Tax package accurately and efficiently computes your 
federal income tax liability. Aardvark" will display and 
fill in facsimile Form 1 040 and related schedules and, 



when connected to a printer by means of a standard 
interface, will print out these facsimile forms auto- 
matically. Each program is designed to use the appro- 
priate tax table or rate schedule. The Aardvark" 
package includes an indexed instruction manual and 
input forms for easy input of tax data. To see how 
Aardvark" can be tax-deductible, check the instructions 
in the binder of the manual. You can also use the 
binder to store pertinent 1 979 tax records. Cure your 
headaches this tax season, order today . . . and put 
the BYTE on the IRS with Aardvark"! 



MICRO TAX I $25 

Form 1040 

Schedule A 

Schedule B 

Schedule TC 

(will not calculate Income 

Averaging, Max Tax, or Alternative 

Minimum Tax) 



MICRO TAX IV $100 

Expanded disk version of Micro Tax III 
Printed forms can be filed with the IRS 

When Ordering Specify: 

TRS-80 1 6K Level II Basic 
Apple II 32K with Applesoft Basic 
Apple II 16K Micro with 
Applesoft ROM Card 
Tl 99/4 with drive cassette 
PET 1 6K 



MICRO TAX II $35 

Form 1040 
Schedule A 
Schedule B 
Schedule G (Inc. Avg.) 
Schedule TC 
Form 4625 (Min. Tax) 
Form 4726 (Max. Tax) 
Form 6251 (Alt. Min. Tax) 



AardvarK 
Software 



MICRO TAX III $50 

Micro Tax II plus 

Schedule C 

Schedule D 

Schedule E 

Schedule SE 

Form 21 1 9 - Sale of Personal 

Residence 

Disk Version $60 

MICRO TAX V $150 

Expanded disk version of Micro Tax III 

plus Form 2210 

Provides for hash totals and batch 

processing 

Printed forms can be filed with IRS 

For more information write: 

P.O. Box 26505 
Milwaukee, Wl 53213 



24 hrs. Orders only call TOLL FREE 1-800-558-8570. 
In Wisconsin 1-414-289-9988 

O Aardvark Software. Inc 1979 



7 days 
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Stan and the Anti-Randomizer 



N.B.Winkless.Jr. 



Stan came zipping home from Little League and 
found his father sitting at the keyboard, cussing. 

"S'matter, Pop?" 

"Grmmphh," his pop said. "I'm trying to demon- 
strate a system at dice, and your randomizer works like 
a broken record. Look at my picture." He called for 
RUN and got this: 

POP'S RUN — PART ONE 

RUN? 37.13 
10 89 12 3 10 76872 12«769 
291 10 10 8 11 88858896 10 
10 6 10 1611811655156 7 

11778878511586883 12 7 
9 8 12 9 6 8 5 7 12 12 12 7 11 6 8 

397255 10 9763 7 798 7 7 

8.5.7 

Six 8's in eight rolls. Does that look random?" 
"It can happen, can't it?" 
"Grmmphh." the run continued. 

POP'S RUN — PART TWO 

2 ••« 3 

3 ••• 3 

« •••••• 6 

5 10 

6 »••• • 10 

7 •• •«••••• 17 
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9 * ,,, 9 

10 «»»•••• 8 

11 5 

12 7 

RUN CODED 6 S7.13 
READY 

"Nice chart, Pop. Let's see the program." 

10 ! PROGRAM BY STAN'S POP 

20 DIM H(12) 

30 P0KE(16R0512)=52:tSETS PRINTER LINE. IDTH 

to INPUT "RUN";Z:Y=RND(Z):!THE SEED 

50 PRINT: PRINT 

60 C1=INT(6»RND(0))*1 

70 C2=INT(6«RND(0))+1: C=CUC2 

80 H(C)=I1(C)*1 

90 T=T*1 

100 PRINT C * 

1 1D IF T/100=INT(T/100) THEN 130 

120 GOTO 60 

130 PRINT:PRINT:FOR Xr2 TO 12:PRINT X;TAB(5);REPEAT$ 

( ,H(X));H(X): NEXT X 

110 PRINT "RUN CODED »";Z 

150 END 

READY 

Stan wrinkled his freckles. "Well, that's the way 
this random number generator pumps 'em out, Pop. 
Are you sure you really want random runs — or would 
you like a straight chunk of what's probable?" 

"Wot?" 

"You want to show what happens when some 
particular betting system meets the dice, right? You 
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don't want a bias toward winning, or toward losing, but 
just a straight extension of the probabilities. You got 
your program saved? Then lemme sit in. I've got a 
thought. You go read the paper. . ." 

Grmmph. Pop went off. 

He was into the financial section when Stan called 
him back. "How's this grab you?" 

STAN'S RUN — PART ONE 

RUN? 87. *3 
9837912 10 79 7 5811 361 

086677 12 88565671119 
10 5 1311193261110 7786 
8 10 9585 10 357 7 8 12 656 

H71967957 10 1969561 

9 10 9877 12 88533U6527 
11 68771 10 366 10 77 10 16 
5567 12 691 10 8717682 

99389 11 573385 11 

"Hmm." 

"I hooked up with your charting. Watch. . ." 

STAN'S RUN — PART TWO 
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2 

3 


• •** . 






16 




1 








5 








20 


b 










1 










20 


8 








16 


y 






13 




12 •••• 1 

RUN CODED * 
READY 


37 





"Hmm. What did you do, Stan?" 

Stan explained. "I set you up to get all 36 of the 
possible dice outcomes each time you run through 36 
rolls." he listed the program. 

10 JPROCRAM BY STANISLAUS 

20 DIM H(12),X(36):X1=36: X6=36: GOSUB 200 

30 POKE(16R0512)=52: SPRINTER LINEWIDTH 

10 INPUT "RUN";Z:Y=RND(Z):!THE SEED 

50 PRINT: PRINT 

60 C0SUB 270 

80 H(C)=H(C)*1 

90 T=T*1 

100 PRINT C; 

110 IF T/111=INT(T/111) THEN 130 

120 GOTO 60 

130 PRINT:FOR X=2 TO 12:PRINT X;TAB(5); REPEAT* ("•",H 

(X));H(X):NEXT X 

110 PRINT "RUN CODED #";Z 

150 END 

200 FOR XI =1 TO 36 

210 READ X2 

230 X(X1)rX2 

210 NEXT XI 

250 RESTORE 

260 RETURN 

270 X1=INT(X6«RND(0))*1 

280 CrX(X1):X(X1):X(X6) 

290 X6=X6-1 

300 IF X6<1 THEN X6=36: GOSUB 200 

310 RETURN 

320 DATA 7,6,7,8,5,6,7,8,9,1,5,6,7,8,9,10,3,1,5,6,7, 

8,9,10,11,2,3,1,5,6,7,8,9,10,11,12 

READY 
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Anti-Randomizer, cont'd... 

"At 110 through 170, I load up 36 "boxes" with one 
each of the 36 outcomes. You get 6 sevens, 5 sixes, 4 
fives, and so on, every time through, each in proportion 
to its probability. At 180 I generate a random value; at 
190 I use that value to pick a box with a number that 
hasn't yet been withdrawn. You know, the same routine 
as dealing cards from a deck without replacement. 
Then when they Ye all gone, at 210 I reload the boxes 
and start again. You get a random look, but with 
certainty of a correct distribution." 

Pop studied the listing. "Unh-hunh. Two problems. 
Your "chunk of what's probable" won't look right. In 
life, we don't hit all the numbers in exact proportion 
every 36 rolls. And probability doesn't say that we will. 
You've given me a 36-roll chunk of the average at 
infinity. It's fair, in its way, but it won't look right." 

Stan pondered. "What's the other problem?" 

"I'd like to produce decisions - not just rolls. There 
are some one-roll decisions: 2,3,7,11, and 12. But 
when a number is hit (e.g., 4,5,6,8,9 or 10) another roll 
is called for. Hit it again, and it wins; hit a 7, and it 
loses. The 4 and the 10 have one chance in three of 
winning; the 5 and the 9 have two chances in five; the 
6 and the 8 have five chances in eleven. But I can't trust 
that feeble built-in randomizer to play fair." 

Stan scratched his nose, and finally nodded. "Go 
away, Pop. Lemme build something. I'll take care of 
both those problems." 

* * * 

"Every-36 is too short a cycle," Stan told himself. 
"I'll increase the size of the batch -- say to five groups 
of 36. And as for producing decisions on the numbers 
in accurate distribution, I can pre-determine those as 
well..." 

Two hours later, they called Stan to supper. "Be 
right down!" he said. But at midnight, Pop found him 
asleep at the keyboard. On the CRT, this message - 
DON'T TOUCH ANYTHING 

Pop turned off the disk drive and carried the Little 
Leaguer to his bed. The machine purred softly all night. 

* * * 

Next day, when Pop came home, Stan was 
bright-eyed and ready. "Stand by for a run, Pop!" It ran- 

STAN'S SECOND EFFORT — Tt€ RUN 



T« ANTI-RANDOMIZER — BY STANISLAUS K. PURDTTON U/H/79 
RUN? 37. «3 

wgw i. 6L o. 8L a. a ta. a. m ia.(W9L8W7WEwa.8L7W6w<i.a.8w iowtwu 

L )W «l IH 5U M «. 7W (t « a H » i IX W 8L 1 'A * « » 1 1 » H « 

l nw iol low nw a. 7w v nw %. 6L ia. a. nw iol 9L 7W VW 7W 6L 7W 8L IX 5W JL 
5L 7W I0W 7W O. 8L 6L 7W I2L 7W O. 7W <*. 7W "t SW I0L 7W a. "C 11W 9L W 9L * 5L 
7W 5W 7U 6W <JL 10L * GW 7W KM 8W <*. IIW Hi 74 0. A 6W A 7W 9L IOL 3. 74 9W 'jL 
6W6W8L9L5L9W8wtA5V7wa.5L5L9L 11W6L9L7W3LH.9W5W8W9LA7W 
IX8L5L<U8L<!W9L'».7W9L7Wiaw5V8L6L'«.iaL7W11W5La.8WlUL6W 

IN THESE 183 XCEI0NS, 

WE'VE SEEN 68 WINS, 9? LOSERS 

LOSING EKE: 2.2222222 I 

2 «••• 5 

3 .......... , 

I •• •••••• 1«, ACTUAL WINS, 5 ;PROBABLE WDC, 5.00 

5 « 20 ACTUAL WINS, ? jPMBABLE WINS, 8.00 

6 »...!.. s ACTUAL WINS, II ; PROBABLE WINS, 11.36 

7 HHMH i mm »•• y) 

25 ACTUAL WINS, 11 jPROBABLE WIN3.11. 36 

9 mnH M m W M i m jo ACTUAL WDC, 8 jPROBABLE WINS, 8.00 

10 •• 15 ACTUAL WINS, 5 ; PROBABLE WINS, 5.00 

II .......... io 

12 —— 5 

RUN I 87. «3 
READY 




Complete your TRS-80* 

with these routines not 

found in either Level II or DOS. 




SYSTEM 
SAVERS 



by 

Tom Stibolt 



If you ever use the SYSTEM command, you can 
use this two program package. These programs 
allow you to save any system format program on 
tape or disk, plus offer several features for ma- 
chine language programmers. 

With FLEXL, which is one of the two programs, 
you can make back-up copies of any system for- 
mat tape. Most often a cassette that you make will 
load easier than an original. Plus you can find the 
filename on any system tape because it is dis- 
played on the screen. 

Disk drive owners can use TDISK to save any 
system format tape on disk. "Air Raid", "Editor/ 
Assembler" and other programs cannot normally 
be loaded to disk. Now TDISK allows you to save 
these programs onto disk. After DOS READY you 
will be able to simply type the filename and be up 
and running. It even loads non-contiguos tapes. 
TDISK will greatly increase the benefit of owning a 
disk drive. 

Acorn produces several other utility programs 
for the TRS-80. These include "Aterm" and "Num- 
bering" by Tom Stibolt; and "Disassembler", 
"Tape Utility" and "Disk Utility" by Roy Soltoff. All 
are available for less than $20.00. Ask for these 
and other quality Acorn programs at your local 
computer store. 

• TRS 80 is a trademark of Tandy Corp 



□ 
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Software Products, Inc. 



634 North Carolina Avenue, S E , Washington, DC 20003 
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Anti-Randomizer, cont'd... 

"WOW!" Pop said. "Tell me about it." 
"Let me show you the program." 



K PRINT "THE ANT! -RANDOMIZER — BY STANISLAUS K. RJRINTON 1/1/79" 

20 DIM Z(18J): G= 1 80: "PROVIDES BATCH OF 5 CHOPS Of * OUTCOMES 

30 COSUB 50J:!THIS ROUTINE "FILLS THE BODES" 

10 DIM H<12), C(12),R(I2): Msl 

50 PtXE(16RC012)5S2:!SETS THE PRINTER UNEWIDTH 

CO > FOLLOWING LINE SETS CHARACTER-SUE (SPACING) 

70 V}=OttR$C?7)«CmR$<jl>.CHAR*<10): OPEN 0" , P":PUTOVS;:CLOSE0 

60 iPRINT CWR*(16):! TURIK ON THE PRINTER 

9U INPUT "RUN";Z1:Z:> 5 Z1:Z1«RND<-Z1):!THE SEED, TO ENABLE REPEAT 

IX GOSUB 5.»:!GOES TO FIND A VALUE, 1 TO » 

113 COSUB PO0:!GUES TO ANALYZE IT AS WINNER/USER \ WHY 

120 T.T.I:! COUNTS THE DECISIONS 

1?) PRINT DS;" ";■! frOHTS A DECISION BY THE NUMBERS, ♦ A SPACE 

150 IF T/ltO«INT(T/18E)) THEN COSUb 100: (DISPLAY:; THE SCORE 

160 OTTO 100: 1 RETURNS TO FIND MOTHER VALUE 

200 !2,i,7,l1, AND 12 BECOME INSTANT DECISIONS 

205 !",5,6,;,9, AND W ARE NUMBERS: SCME WW, SOME LOSE 

210 IF C=2 THEN D*="2L" :V=V.1:R£TURN 

215 IF C3 T1CN Dt="3L":V5V.1:RETURN 

220 IF C.1 THEN C(1)=C(1).l:COyjB 30U:RETURN:! OOUNTS HITS ON 1 

225 IF &5 THEN C<5)«C(5)»I:CDT0 312:! COUNTS HITS ON 5... 

230 IF &6 THEN C(t).C(6>»l: CDTO 320:! ETC. 

235 IF C.7 THEN WsW»1: Dts-VW": RETURN 

210 IF C«8 THEN C<S)«C(b)»1:COTO 326 

2<6 IF C9 THEN C(9)2C(9)»1:COTC 336 

250 IF CslO THEN C(10>«C<10).1:OJSUB -^RETURN 

255 IF C=11 THEN W.U*l:Dt="11W": RETURN 

260 IF C.I2 THEN Dt."12L" , :V<V«l:J1<Jl»1: RETURN 

J00! THESE SELECT LOSERS IN PROPORTION TO THEIR PROBABILITY 

302 !1WO OUT OF THREE FOURS ARE LOSERS 

301 IF C(1»1 THEN D*="KL":V=V.1:CDSUB 350:RETURN 

106 R(1).R(1W1: ! COUNTING WINNING FOURS 

308 Dt="1W":W=W.): RETURN 

310 !THREE OUT OF FIVE FIVES ARE LOSERS 

312 IF C(5)=1 OR C<5>=3 OR C(5)s5 THEN Dfc-^L": VsV»1:GOSU3 356:RETURN 

311 R(5)sR(5)»1:!COUNTING WINNING FIVES 
316 D*=»jW:W=«.l: RETURN 

318 ISIX OUT OF ELEVEN SIXES ARE LOSERS 

320 IF C(6).1 OR aW OR C<6>=5 OR C(6)=7 OR C(6)s10 OR C(6)s11 THEN D*="&L":V=V 
.l:COSUB 3G0:RETURN 

322 R(6)=R(6M:! COUNTING WINNING SUES 

321 D*»™6W":W=W.1: RETURN 

326 !SIX OUT OF ELEVEN EIGHTS ARE LOSERS 

328 IF C(8).l OR C(8)*2 OR C(8)=6 OR C(8)s7 OR C(S)^ OR C(8)sl1 THEN D»« ,, 8L":VsV» 

1:GOSUB 361:RETURN 

330 R(8):R(8)»1:! ETC. 
332 D*."8W":W=*.I: RETURN 

331 ! ETC. 

336 IF C<9>«2 OR C(9).1 OR C(9>=5 THEN D$="9L": V=V.l:COSU3 368:RETURN 

338 R(9)=R(9>»1 

310 D*="9W":W=W*I:RETURN 

312 IF C(10)>1 THEN D**"10L" :V.V.1 :GOSUB J72:RETURN 
3H ROOhRUOM 

316 D*="I0W:W.W.I: RETURN 

3«8 (WHEN WE'VE COUNTED THREE HITS ON 1, WE RESET THE COUNTER 

350 IF C(1)=3 THEN C(1)=0 
352 RETURN 

351 !WHEN WE'VE COUNTED FIVE HITS ON 5, ETC. 
356 IF C<5)s5 THEN C(5)=0 

358 RETURN 

360 IF C(6)s11 THEN «6M 

362 RETURN 

3W IF C(8)r11 THEN C(8)sO 

366 RETURN 

368 IF C(9)«5 THEN C<9>=0 

370 RETURN 

372 IF C(10)=3 THEN C(10)sO 

371 RETURN 
WO PRINT 

110 PRINT "» THESE ";T; "DECISIONS," 

115 PRINT "WE'VE SEEN ";W;"WINS,";V;"L0SERS" 

120 D=V-W:HsD/T , 100:!DIFFERENCE,LOSERS MINUS WINNERS... 

125 iDIVIDE DIFFERENCE BY TOTAL DECISIONS, • 100 FOR X 

130 PRINT "LOSING EDGE: ";H;"t" 

135 law HITS AS A CHART:THIS VERSION OF BASIC USES 'REPEAT*' 

HO IWTTHOUT THAT CAPABILITY, YOU CAN FIND ANOTHER WAY 

H5 PRINT :FOR X«2 TO 12 

150 PRINT X; 

155 PRINT TAB(7); REPEATJ("«",H(X));H(X);:IF Xrf OR XO OR X.7 OR X.11 OR X.12 THE 

N PRINT:! WE HAVE TO BREAK LOOSE FROM THE SEMI 

160 IF X*1 OR X=10 THEN PRINT " ACTUAL WiNS,";R(X);";PROBABLE WDB,";FMT(((H(X)/} 

>»IOO),"ZZ.99"):!ZZ.99 TRUNCATES THE FRACTION 

165 IF X=5 OR X«9 THEN PRINT " ACTUAL WMS.";R(X);";PROBABLE WWS,";FMT«(H(X)/5» 

2)»100),"ZZ.99"> 

170 IF X* OR IU8 THEN PRINT " ACTUAL WWS,";R(X);";PROBABLE WINS,";FMT(((H(X)/11 

WltXD.'ZL.W) 

175 NEXT X 

180 IF T.180 THEN 195 

185 PRINT CHAR$<15>; 

190 PRINT: RETURN 

195 PRINT "RUN f; Z2: END 

500 FOR 0=1 TO 180 

505 READ X 

510 Z(0)sX 

515 NEXT 

520 RESTORE 

525 RETURN 

530 GUKND(O) 



535 IF G1<0 THEN G1sG1«-1: PRINT "HAD TO DO IT" 

510 E.INT(G«G1)«1 

5*5 C=Z(E):Z(E).Z(G) 

550 CW*B(C,36) 

555 H(C)=H(C)*1 

560GC-1 

565 IF G=0 THEN Gsl80:GOSUB 500 

570 RETURN 

575 DATA 2,3,3,1,1,1,5,5,5,5,6,6,6,6,6,7,7,7,7,7,7,8,8,8,8,8,9,9,9,9, K), X), », 11, 1 

1,12 

580 DATA 12, 11 , 11, 10, 10. 10,9,9,9,9,8,8,8,8,8,7,7,7,7,7,7,6,6,6,6,6,5,5,5,5,1,1,1,3 

.3,2 

585 DATA 2,3,1,5,6,7,8,9, 10,11, 12,3,1,5,6,7,8,9, K), 11,1,5,6,7,8,9, 10,5,6,7,8,9,6,7 

.8,7 

590 DATA 12.11,10,9,8,7,6,5,1,3.2,11.13,9.8.7,6,5,1,3.10,9,8,7,6.5,1,9.8,7,6.5.8,7 

.6.7 

595 DATA 2,3,1,5.6,7,8,9, W, 11, 12,3,1.5,6.7,8,9, 10, 11,1,5,6,7,8,9, 10,5,6,7,8,9,6,7 

.3,7 

READY 

"Lines 10 through 90 are just the necessary set-up," 
Stan said. "I've put in a lot of notes to explain. I've 
made a batch of five groups of 36 outcomes, 
proportionate to their probabilities - the DATA down at 
the end. At 30, 1 go to 500 to load up. 

"Now, at 100, I go for the first outcome. The 
randomizer at 530 chooses a box, as before ~ but now 
it's one of 180 boxes, so there's no cycling until we've 
used them all. 

"At 110, I go to analyze the number we draw from 
the box - and of course your one-roll decisions answer 
themselves. But see what I do with the numbers. If it's 
a 4, at 220 I start counting (C(4) = C(4) + 1 ) . . . and then 
go to 304. If this is the first 4 we've hit, I slide through 
the IF and score up a win. If it's the second or third 4, 
it's a loser, and I go to 350 to check whether this is a 
third 4 of a series, and I reset the counter to zero if it is. 

Same routine on other numbers. The first, third, 
and fifth 5's are losers. Six of every eleven 6's are 
losers. And soon." 

"Wow," said Pop. 

"Notice the summary, Pop. In 180 decisions, we hit 
2 to 12 in the exact proportion of their probabilities. 
But of course we can't square up that way on wins-and 
-losses on the numbers. You see that 6 and 8 are short 
of their probable wins. You can see why." 

Pop said, "Er..." 

"Because you can't divide 180 by eleven and come 
out even. Our factors are 3,5,11,36. Our least common 
denominator is 1980." 

"Of course," said Pop. 

"What are we looking for in the way of advantage, 
losers over winners?" 

"It's 1.414%." 

"That's what happens at 1980 decisions. It's 976 
winners, 1004 losers. Wanna see it?" 

"I believe it, son," said Pop. "One problem: you're 
still using the randomizer that comes with the Basic." 

Stan stared. "Pop, I didn't know you like egg in your 
beer." □ 



"Too many people live too much in the 
past. The past must be a springboard, not a 
sofa." 

Harold Macmillan 

"Nowadays almost exclusive stress is laid 
on learning what has happened and has been 
done. Tomorrow ... at least one third of all 
lectures and exercises ought to be concerned 
with scientific, technical, artistic and philo- 
sophical work in progress, anticipated crises 
and possible future answers to these chal- 
lenges." 

Robert Jungle 
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Come Help Us 
Celebrate The Child 



SIMUTEK PRESENTS 

• TRS-80 • 

GAMES 

!!! WHOLESALE!!! 



rl 

'rophic childhooc 

coo- . of desrrc , I <oo 

moriy children rhe world over Sr Jude Hosj 

■ 
hove been so many 

But eoch priceless new procedure even rh 
thor hove olreody mode some incurable illnesses 
curable shows how elusive rhe ultimate goal of 
conquest remains 

Research offers the only firm hope 

Research or St Jude Children s fXeseorch Hospital 
continues because people core There is no charge 
to patients or their families once admitted to 

earch studies by physician referral 
The ever increasing cost of drugs ^-^ 

equipment and research programs 
has been met primarily by public 
contributions 

This miraculous celebration of 
the child Knows no race creed or j v 
financial d ' 

Come help us celebrate the 
child Please send your tax- 
deductible check or your reqi .< 

'ormotion to St Jude 
Children s Research Hospital 
53° Lone Avenue Memphis 
Tennessee 38105 
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• PACKAGE ONE 



4l 

•3 



lull iiipaici, real time gam* is full ol last, •■citing action' Exploding 
tha screen! You mutt actually navigate In* enterprise to dock with the 
giant space stations as wail at to avoid klingon toiptdott' Has shields, galactic memory readout, damaga 
reports, long range sensors, etc' Mas 3 levels to* beginning, average, or expert player* 1 e INVASION 
WO HO Time 3099. Place Earth's So<ar System Mmw As general ot Earth't forcet, your loo it to 
Hop the Wore invasion and dettroy (heir outposts on Mart, Vinut, Saturn, Neptune, etc > Earth's Forces: 
Androids — Space lighten — La/er Cannon - Neutrino Blasters' Worg Forcet Robott - Saucers — 
Ditmtegratort — Proton Oettroyertl Multi level game lets you advance to a more complicated game at you 
get better' • STAR WARS - Manuever your tpece fighter deep into the nucleus Ot the Death Star- Drop 
your bomb, then etcepe vie the only exit. This graphics game it really tun' May the Force be with 
you' e SPACE TARGET - Shoot at enemy Ships with your missiles, I* they etect in a parachute, 
capture them — or It you're cruel, destroy them' Fun graphics, real time game' e SAUCERS — This test 
action graphics game hat a time itmit' Can you be the commander to win the distinguished cross' 
Requires split second timing to win' Watch out' 



! PACKAGE TWO 



CHECKERS I.I — Finally' A checkers program that will challenge everyone' Expert at well at amateur ' 
Uses 3 ply tree search to find best possible move. Picms randomly between equal moves to assure you of 
ntvt having Identical games. * POKER PACK - The computer uses psychology as well at logic to try 
and beat you at poker. Cards are displayed using TRSIO's full graphics. Computer raises, calls, and 
sometimes even folds' Oreat practice for your Saturday night poker match' (Plays S card 
draw), e psychic — Tell the computer a little about yourself and he'll predict things about you, you 
won't believe' A reel mind bender' Great amusement for parties e TANGLE MANIA - Try and force 
your opponent into an immobile position But watch out, they're doing the tame to you' This graphtct 
game It for 2 people and has been used to end stupid arguments. (And occasionally starts 
them!) e WORD SCRAMBLE This game >s for two or mote people One person inputs e word to the 
computer while the others look away. The computer tcremblet the word, then keeps track of wrong 



PACKAGE THREE 



POETRV — This program lett you choose the tubrect as wen as the mood of the poem you want Vou 
erve TRS-iO certain nouns or names, tnen the mood, and it does the rest' ii has a 1 000 word • vocabulary 
of nouns, verbs, adjectives and adverbs' e ELECTRIC ARTIST Manual draw, erase, move at well at. 
Auto draw, erase and move. Uses graphics bits not bytes Saves drawing on tape or disk' • GALACTIC 
BATTLE ■ The Swineus enemy nave long range pneters but cannot travel at warp speed' Vou can. but 
only have short range phaters' Can you blitzkrieg the enemy without getting destroyed' Full graphics - 
real lime' e WORD MANIA Can you guess the computer's words using your human intuitive and 
logical abilities' You'H need to. to beat the computer! e AIR COMMANO - Settle the Kamikaze pilots. 
Requires spill second timing. This is a FAST action arcade game. 



• PACKAGE FOUR ' 



LIFE - This Z-E0 machine language program uses full graphics' Over 100 generations per minute make it 
truly animated 1 You make your starting pattern, the computer does the rest' Program can be stopped end 
changes made! Watch it grow' • SPACE LANDER This full graphics simulator lets you pick what 

planet, asteroid or moon you wish to land on' Has 3 skill levels that make it 'un for everyone. • GRCEO 
II — Multi-level game it fun and challenging' Beat the computer at this dice game using your knowledge of 
odds and luck' Computer keeps track of his winnings and yours. Clutch fait action. This game n not 
easy' e THE PHARAOH — Rule the ancient city of Alexandria' Buy or sell land. Keep your people from 
revolting' Stop the rampaging rats. Requires a true political personality to become good' e ROBOT 
HUNTER - A group of renegade robots have escaped and are spotted in an old ghott town on Mart' Your 
job at "Robot Hunter" it to destroy the pirate machines before they kill any more settlers! Exciting! 
Challenging' Full graphics! 



• PACKAGE FIVE 



SUPER HORSERACE - Make your oett lull like at the real racetrack* • hortet race in this spectacular 
graphic display! Up to 9 people can play' Utet real odds but hat ihet element of chance you tee in real 
life! Keeps track of ever yone's winnings and losses This is one of the few computer simulations that can 
actually get a room ol people cheering' e MAZE MOUSE The mouse with a mind 1 The computer 

generates random mazes of whatever sue you specify, then searches for a way out' Tne second time, he'll 
always go fastest route! A true display of artificial intelligence' f uii graphics, mazes 4 
mouses" e AMOEBA KILLER — You command a one man submarine that hat been shrunken to the size 
of bacteria in this exciting graphic adventure' '"reeled into the president's bloodstream, your mission it to 
dettroy the deadly amoeba infection ravaging his body' e logic - Thrs popular gam* is beted on 
Mastermind but utilizes tactics that make it more exciting and challenging - has 2 levels of play to make 
■t fun for everyone. • SUBMARINER - Shoot torpedoes at the enemy ships to get points. Fett action 
graphics, arcade type game is exciting and tun for everybody' 



PACKAGE SIX 



20 HOME FINANCIAL PROGRAMS - Figures amortization, annuities, depreciation rates, interest 
tablet, earned interest on savings and much, much more. These programs will get used again and again. A 
mutt for the conscientious, inflation minded person. 



PACKAGE SEVEN 



BACKGAMMON so - 2 different skin levels make this game a challenge to everage or advanced players. 
(Not recommended for beginners) Looks for best potsibie move to beat you' * ANTASTic GRAPHICS. 
Plays doubles and uses international rulet. e SPEED READING — increases your reading speed. Alto 
checks for comprehension of material. Great tor teenagers and adults to improve reading skills. • PT 109 
— Orop depth charges on moving tubs. Lower depths get higher points m this test action graphics 
geme. e VAMTZEE — Piey vantiee with the computer. This popular game Is even more fun and 
challenging against a TRS-tO* • WALL STREET Can you turn your SS0.00O into a million dollars' 
That's the object of this great geme. Simulates en actual Stock market' 



NOT AVAILABLE AT RETAIL STORES ANYWHERE 



INSTRUCTION BOOK WITH EACH PKG. 



ONLY 12.95 EACH 



ALL PROGRAMS GUARANTEED TO LOAD 

CASSETTE PACKAGES REQUIRE 16K LEVEL II 
PACKAGES ON DISKETTE (32K) $5.00 EXTRA 

■J* Send check. Money Order or Bank Card # ^wj 

TO: SIMUTEK, P.O. BOX 35298 ^ 
TUCSON, ARIZONA 85740 
(602) 882-3948 



PHONE ORDERS WELCOME' 



| PLEASE ADD $2.50 POSTAGE & HANDLING PER ORDER 
3 OR MORE PACKAGES GET 10% DISCOUNT 

CIRCLE 18S0N READER SERVICE CARD 



A public health simulation 



"Dog Bites Man" is not news, 
largely because it is very common. At 
least 2% of the U.S. population is bitten 
by dogs each year, seriously enough to 
require medical attention. The victims 
are usually children between the ages 
of 5 and 9. As large dogs are becoming 
more popular, the injuries are be- 
coming more serious. 

Among adults, certain occupa- 
tions are associated with a dispropor- 
tionate number of bites. Letter carriers 
and meter readers are bitten about 15 
times as often as other adults. Un- 
fortunately, society has tended to take 
these problems lightly. You can even 
buy mailman-shaped biscuits for your 
dog! However, public health officials 
and victims are starting to recognize 
the "epidemic" proportions of the 
problem. 

DOG BITE grew out of a belief that 
simulations based on real-world situ- 
ations can be both entertaining and 
useful. (See "Jury Selection" and "Real 
World Games", Creative Computing, 
volume 4, number 5). DOG BITE is 
based on a series of studies conducted 
with the cooperation of the St. Louis 
branch of the U.S. Postal Service. In 
these studies. Dr. Alan Beck and I 
reviewed all accident reports for dog 
bites to letter carriers in St. Louis 
during 1971-1972. These were com- 
pared to reports of non-dog related 
accidents. In addition, I spent a year 
working the routes with letter carriers, 
noting the incidence of dogs, the 
interactions that occurred, the areas of 
greatest risk and the effectiveness of 
different responses to dangerous 
situations. I have tried to include both 
my statistical findings and my intuitive 
knowledge of dog-human encounters 
in DOG BITE to create a fun and 
challenging simulation. 



Randall Lockwood. Ph.D.. Dept. of Psychology. 
State University of New York. Stony Brook. NY 
11794. 




Dogbite 



Randall Lockwood, Ph.D. 



Background 



There appear to be four main 
factors that affect the dog-bite history 
of a letter carrier. The first is the nature 
of the assignment. Carriers who visit 
the same houses each day have a 
chance to learn where the dogs are, 
particularly the nasty ones. At the 
same time, the dogs have a chance to 
get used to a regular intruder. How- 
ever, mail is delivered 6 days a week 
and most carriers work only 5. On 
these odd days a new person shows 
up, and is thus a more likely target. 
Other carriers routinely fill in for those 
who are absent or ill, and thus have the 
same problems. 

Another important variable is the 
nature of the area being served. Urban 
areas, particularly apartment build- 
ings, are safe as far as dog bite is 
concerned. The dogs are usually small 
and inside and many deliveries can be 
made at one time. Suburban areas with 
one and two family homes present 
greater dangers. Dogs are likely to be 
running loose or to get loose during a 
delivery. Stray dogs (i.e., those with no 
owners) are not much of a problem in 
DOG BITE or in real life. The greatest 
problems are caused by straying pets, 
or animals that get out when a custo- 
mer opens the door to receive mail. 

Once a letter carrier faces a con- 
frontation with a dog, the third factor 
becomes important: the ability to 
"read" the animal's intentions and 
react accordingly. Even friendly ani- 
mals should not be encouraged to 
approach (and this is not an option in 
DOG BITE), since their reaction to the 
uniform and apparatus of the letter 
carrier may be unpredictable. We 
found several carriers who were bitten 
by their own dogs after they put on 
their uniforms. 

The letter carrier has the options 
of attempting delivery, withholding 
delivery, running away, confronting 
the animal or using a chemical repel- 
lent. Most carriers avoid using a spray 



since they want to avoid possible injury 
to dogs, and unpleasant reactions from 
dog-owners. You will face the same 
kinds of problems in using chemical 
sprays in DOG BITE. 

The letter carriers' success in 
avoiding a bite is also related to a 
fourth factor . . . LUCK. Even careless 
people may get away unharmed and 
even the most cautious may be bitten. 

DOG BITE provides a good oppor- 
tunity to familiarize yourself with the 
many factors that interact in a public 
health simulation. Hopefully, playing 
DOG BITE may even help you avoid 
becoming a statistic in our next 
program! 

About The Program 

DOG BITE is written, appropri- 
ately, in "PET" Basic. However, the 
version presented here does not make 
use of any of the special PET graphics 
or cursor control commands, so it is 
easily adapted to all Basic dialects. The 
only peculiarities are line 15, which 
takes the place of a "RANDOMIZE" 
instruction, and the use of the GET 
command instead of INPUT or 
INKEY$. I suggest that you add the 
"CLEAR/HOME" instruction for your 
system before lines 10, 100, 455, 540 
and 1505. This will make things a bit 
neater. PET owners should have the 
warning messages print in reverse 
video to add to the drama. 

In writing a public health simula- 
tion, one is often in the situation of 
having numerator data without de- 
nominators. For example, we know 
how many biting dogs are poodles, but 
we have to rely on other sources to try 
to estimate the proportion of poodles 
that bite. To keep DOG BITE true-to- 
life, while realizing that we cannot 
perfectly predict dangerous situations, 
I have made some compromises. I have 
aimed for an average of 3 dangerous 
encounters per game. This is high, but 
a more realistic game would be dulK 
The relative rates of the various events 
(dog loose, dog is barking, etc.) are 
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A New Type of Game Sjj 



MISSION IMPOSSIBLE ADVENTURE (by Scott Adams) - Good 
Morning, Your mission is to... and so it starts. Will you be able to 
complete your mission in time? Or is the world's first automated 
nuclear reactor doomed? This one's well named, its hard, there is 
no magic but plenty of suspense. Good luck 

THE COUNT (by Scott Adams)- You wake up in a large brass bed in 
a castle somewhere in Transylvania. Who are you, what are you 
doing here, and WHY did the postman deliver a bottle of blood? 
You'll love this Adventure, in fact, you might say it's LOVE AT 
FIRST BITE 

ADVENTURELAND (by Scott Adams) - You wander through an en- 
chanted world trying to recover the 13 lost treasures. You'll en- 
counter WILD ANIMALS, MAGICAL BEINGS, and many other 
perils and puzzles. Can you rescue the BLUE OX from the quick- 
sand? Or find your way out of the maze of pits? Happy Adven- 
turing 

VOODOO CASTLE (by Scott Adams) - Count Cristo has had a 
fiendish curse put on him by his enemies. There he lies, with you 
his only hope. Will you be able to rescue him or is he forever 
doomed? Beware the Voodoo Man 



Welcome to an astonishing new experience! ADVENTURE is 
one of the most challenging and innovative games available for 
your personal computer. This is not the average computer game in 
which you shoot at, chase, or get chased by something, master the 
game within an hour, and then lose interest. In fact, it may take you 
more than an hour to score at all, and will probably take days or 
weeks of playing to get a good score. (There is a provision for 
saving a game in progress). 

This game was inspired by the huge Adventure game which has 
appeared on large mainframe computers the last several years. But 
there are important differences. Not only will ADVENTURE fit into 
a relatively small computer, but the 'interpreter' is designed so that 
different Adventures can be created by changing the data base. So 
look for more Adventures in the future. . . 

In playing the game you wander thru various 'rooms' (loca- 
tions), manipulating the objects there to try to find 'treasures'. You 
may have to defeat an exotic wild animal to get one treasure, or 
figure out how to get another treasure out of a quicksand bog. You 
communicate thru two-word commands such as 'go west', 'climb 
tree', 'throw axe', 'look around'. 



d venture 

For Apple, TRS-80, Sorcerer, PET, CP/M 

ORIGINAL ADVENTURE (by Crowther, Woods, Manning and 
Roichel) - Somewhere nearby is a collosal cave where others have 
found fortunes in treasures and gold, but some who have entered 
have never been seen again. You start at a small brick building 
which is the wellhouse for a large spring. You must try to find your 
way into the underground caverns where you'll meet a giant clam, 
nasty little dwarves, and much more. This Adventure is Bl-Lingual 
—you may play in either English or French— a language learning 
tool beyond comparison. Runs in 32K CP/M system (48K required 
for SAVE GAME feature). Even includes SAM76 language in which 
to run the game. The troll says "Good Luck." 

PIRATE ADVENTURE (by Scott Adams) - "Yo Ho Ho and a bottle of 
rum..." You'll meet up with the pirate and his daffy bird along with 
many strange sights as you attempt to go from your London flat to 
Treasure Island. Can you recover LONG JOHN SILVER'S lost trea- 
sures? Happy sailing matey 

sensational software 




TRS-80 Level II (16K) Machine language 

cassettes for only $1 4.95 

CS-3007 Adventureland 

CS-3008 Pirate Adventure 

CS-3009 Mission Impossible Adventure 

CS-3010 Voodoo Castle 

CS-3011 The Count 

TRS-80 Disk (32K) Menu driven machine 
language routines for only $24.95 
CS-3506 Adventureland and Pirate 

Adventure 
CS-3507 Mission Impossible Adventure 

and Voodoo Castle 

Sorcerec (1 6K) Machine language cassettes 

for only $14.95 

CS-5003 Adventureland 

CS-5004 Pirate Adventure 

CS-5005 Mission Impossible Adventure 



CS-5006 Voodoo Castle 

CS-8007 The Count 

CP/M 8" Disk (48K) Includes special Sam 

76 language in which to run the game 

$24.95 

CS-9004 Original Adventure 

Apple II (16K) A night- 
mare simulation program $7.95 
CS-4005 Haunted House 
Apple II and Apple II Plus (32K) 
Adventures for your 32K Apple on 
cassette, $14.95 
CS-4011 Adventureland 
CS-4012 Pirate Adventure 
CS-4013 Mission Impossible Adventure 
CS-4014 Voodoo Castle 

(48K) Adventures for your 48K Apple on 
disk, $24.95 



CS-4509 Adventureland and Pirate 

Adventure 
CS-4510 Mission Impossible Adventure 

and Voodoo Castle 

Pet (24K), $14.95 turns your Pet into a land 
of enchantment. 
CS-1009 Pirate Adventure and 
Adventureland 

Sensational SavingslTake advantage 
of the one dollar discount certificate on 
page 119 redeamable at your local 
computer store. Or you can order directly 
from Creative Computing Software Dept 
401, P.O. Box 789-M, Morristown, NJ 
07960. Send payment plus $1 shipping 
and handling. For faster service call in 
your bank card order to 800/631-8112. In 
NJ call 201/540-0445. 



For a FREE Sensational Software Catalog of over 400 programs for eight popular systems circle reader service #207. 
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Dogbite, cont'd 



consistent with the actual data. 

The general design of DOG BITE 
is to assign certain basic risk factors 
and then increase or decrease the risks 
according to the situations that arise 
and the choices made by the player. If 
the risk factors reach a critical level 
and the situation is right — a bite will 
occur. More specifically: 

lines 235-540: 

assign basic risk (BR) and adjust 
the risk factor, RF according to the 
assignment 



lines 545-820: 

select the type of delivery and 
evaluate the risks associated with 
that type of delivery according to 
the carrier's assignment 

lines 830-995: 

set up a confrontation and adjust 
RF according to the dog's tem- 
perament (determined at 4000- 
4300) and player's choices. 

line 1000: 

determines if RF is great enough 
for a bite 

lines 1010-1210: 

determine the nature of bite injury 



lines 1500-1550: 

report on performance in the 
simulation. G 

References 

Beck. A.M.. Loring. H and Lockwood, R. 1975. 
The ecology of dog bite injury in St. Louis. 
Mo., Public Health Reports, 90(3):262-267. 

Lockwood. R. and Beck. AM 1975. Dog bites 
among letter carriers in St. Louis. Public 
Health Reports. 90(3)267-269. 



A cassette with a PET BASIC version ol DOG 
BITE, along with copies ot the original research 
reports and documentation are available from the 
author at cost for $2.00. 



1 REM R.L0CKW00D/DEPT.0F PSYCH., SUNV, STONY BROOK, 117*4 

5 PRINTSPC<14>; "DOG BITE 

15 ZZ=RND<-TI>REM RANDOMIZE 

20 PRINT PRINT"TH1S SIMULATION IS BASED ON ACTUAL 

25 PRINT"I>0C ATTACK DATA COLLECTED BY F .LOCKWOOD 

30 PRINT"AND A. BECK IN ST. LOUIS, M0. 

40 PRINT PRINT" THE LIKELIHOOD OF AN ENCOUNTER 

45 PRINT-WITH A DOG HAS BEEN MADE HiGHER 

50 PRINT"IN THIS SIMULATION TO MAKE THINGS 

55 PRINT-MORE INTERESTING. 

60 PRINT PRINT" THE OUTCOME OF AN ENCOUNTER WILL 

65 PRINT-DEPEND ON YOUR DECISIONS AS HELL AS 

70 PRINT-ON ENVIRONMENTAL AND CHANCE FACTORS. 

80 PRINT PRINT" ARE YOU READY TO BEGIN? 

82 GET A*: IF A*«"" THEN $2 

90 IFA*0"V"TH£N82 

35 GOTO110 

100 PRINT PRINT PRINT" YOU ARE A LETTER CARRIER IN THE 

110 PRINT PRINT PRINT" YOU ARE A LETTER CARRIER IN THE 

120 PRINT'TITV OF GNAWSHVILLE, WHICH HAS A DOG 

125 PRINT"BITE PROBLEM. 

130 PRINT PRINT" YOU ARE TO ATTEMPT TO MAKE It) 

135 PRINT-DELIVERIES ON YOUR ROUTE. IF YOU DO 

140 PRINT-THIS WITHOUT BEING BITTEN OP ALIEN- 

145 PRINT-ATING YOUR CUSTOMERS- YOU WIN!" PRINT FtflNT 

148 RA=0 H=0N=0 W«0 ND«0 B=0 

150 PRINT-CHECKING MY RECORDS, I SEE THAT YOU 

155 PRINT-HAVE BEEN BITTEN ",PB, " TIME'. 

160 IF PB«1THEN PRINT" BEFORE. " GOTO180 

165 PRINT-S BEFORE. 

170 IF PB»0 THEN 190 

180 PRINT"VOU'D BETTER BE MORE ChREFUL II " GO TO200 

190 PRINT"VOU'RE EITHER NEW TO THIS GAME OP 

195 PRINT-SIMPLY LUCKY. . .WATCH OUT' 

200 PRINT PRINT PRINT"D0 YOU WANT TO :1> CHOOSE AN 

205 PRINT-ASSIGNMENT OR (2) HAVE ME ASSIGN 

210 PRINT'VOU? <ILL TRY TO BE FAIR;. TYPE 

215 PRINT-THE APPROPRIATE NUMBER. 

229 GETC* IFC*«""THEN220 

221 C»VALCC*> IFO2THEN220 

222 IFC«0THEN220 

230 IF C=l THEN 280 

234 PRINT PRINT PRINT 

235 PRINT PRINT"0.K. ILL GIVE YOU HN ASSIGNMENT 
240 GOSUB 2000 

245 PRINT-FIRST I LL ASSIGN A SCHEDULE 

246 PRINT 

250 IF R<«70 THEN S»l GOTO 310 

255 IF R<=85 THEN S=2 GOTO 310 

260 S-3 GOTO 310 

280 PRINT PRINT" FIRST PICK AN ASSIGNMENT " PRINT 

285 PRINT" <1> REGULAR CARRIER 

290 PRINT" (.2) UTILITY CARRIER 

300 PRINT" <3> SUBSTITUTE CARRIER* 

305 PRINT-VOUR CHOICE ? CENTER NUMBER> 

306 GETM*IFM*«""THEN306 

307 S-VAL<M*>IFS-0THEN386 

308 IFS>3THEN306 

310 I FS=1THENS*«" REGULAR CARRIER 
315 IFS=2THENS*="UTILITV CARRIER 

320 IFS»3THENS*="SUBSTITUlE CARRIER 

321 PRINT PRINT" YOU ARE A "S* 
330 GOSUB 2000 

340 BR*INT(2S*RNDUJ+1) 

360 IFS=1THENBR=BR+10 

370 IFS=2THENBR»BR+30 

380 IFS=3THENBR=BR+30 

400 PRINT PRINT-HERE IS SOMETHING YOU SHOULD KNOW- 

405 ON S GOTO 410,420,440 

410 PRINTS*, "S ARE KNOWN TO LOCAL" 

415 PRINT-DOGS AND THUS GET FEWER BI TES. " G0TO455 

420 PRINTS*; "S COVER VARIOUS ROUTES 

425 PRINT-EACH DAY AND DON T GET TO KNOW THE 



430 PRINT-LOCAL DOGS. 

435 G0T0455 

440 PRINTS*, "S FILL IN FOR 

445 PR I NT "REGULARS AND ARE STRANGERS 

450 PR I NT "TO LOCAL DOGS. 

455 PRINTPRINT"HIT ANV KEY TO CONTINUE 

460 GETK* IFK**""THEN460 

480 PRINT PRINT PRINT" GNAWSHVILLE HAS FOUR NEIGHBORHOODS : " PRINT 

482 PRINT" <1>PUNV ARMS-LUXURY AFTS. "PRINT 

484 PRINT" <2>SUPERCILI0US MANOR-UPPER 

485 PRINT" INCOME SINGLE FAMILY HOUSES" PRINT 

487 PRINT" <3>TACKVT0WN-MID INCOME 1 AND 2 

488 PRINT" FAMILY HOUSES 

490 PRINT PRINT" (.4.VRATHAVEN-L0W INCOME 2 FAMILY" 

491 PRINT" HOUSES" PRINI 
500 IFC=1THEN522 

502 PRINT"I'LL ASSIGN YOU A NEIGHBORHOOD" 

505 GOSUB 2000 

510 IFR>»90 THEN A«l G0T0525 

515 IF R>»70 THEN A»2 GOTO 525 

520 IF R>«30 THEN A=3 GOTO 525 

521 A»4 GOTO 525 

522 PRINT-PICK A NEIGHBORHOOD U-4> 

523 OETG* IFG*=" "THEN523 

524 A=VAL(G*> IFA=0THEN523 

525 IFA>4THEN523 

526 IFA=1THENT*="PUNY ARMS" 

527 IFA»2THENT*""SUPERCILI0US MANOR" 

528 IFA=3THENT*="TACKV TOWN" 

529 IFA»4THENT*="RAT HAVEN" 

530 PRINT PRINT-VOULL BE GOING TO ",T* 

535 PRINT PRINT"HIT ANY KEY TO BEGIN 

536 GETX*IFX*«""THEN536 

540 RA»0 RF«BR OP»0 RA*0 * N=N+ II f N=ll THEN 1SW6 

544 I FN> 1 THENGOSUB3000 

545 PRINT ■ PRINT PRINTSPC' :8 >, "DELI VERY « ",N, PFINT PkINT GOSUB2060 
550 IF P<=60 THEN D*»"REGULAR MHIL" D=l GOTO 5<"0 

555 IF RO80 THEN D*="A PACKAGE" D=2 GO 1 0570 

560 IF R<'**Q THEN D*="A SPECIAL DELIVERY" D=2 GOTO 570 

565 D*="A POSTAGE DUE LETTER" D=2 GOTO 570 

570 PRINT-VOUR DELIVERY IS "D* 

575 IF D«l THEN 580 

577 PRINT"THE CUSTOMER WILL HAVE TO OPEN" 

578 PRINT-THE DOOR TO GET IT." PRINT PRINT 

579 FOR X»l TO 500 NEXT X 

580 GOSUB 2000 

585 IF A*l AND R>«60 THEN 640 
590 IF A=2 AND R>=40 THEN fc-40 
600 IF A«3 AND R>«40 THEN fc-40 
610 IF A«4 AND R>=65 THEN 640 
615 PRINT-THERE DON T SEEM TO BE ANY DOCS" PRINT 

629 GOSUB2000 

630 IF R>8 THEN 1025 

635 PRINT-WAIT I... HERE COMES A STRAY! " GO TO850 

640 PRINT"** DOG ALERT **" 

650 GOSUB 2000 

660 IF A-l AND R>«65 THEN 720 

670 IF A»2 AND R>«50 THEN 720 

680 IF A«3 AND R>=60 THEN 720 

699 IF A«4 AND R>=40 THEN 729 

700 IF R<=10 THEN PRINT "THE DOG IS SECURELY CONFINED" GOTO 1025 
710 PRINT"THE DOG IS INSIDE" F=0 GOTO 750 

720 F=l RF»RF+50 PRINT PRIHT"**THE DOG IS LOOSE**" 
750 PRINT PRINT"WHAT DO YOU WANT TO DO? 
760 PRINT PRINT" 1' hTTEMPT DELIVERY" 
770 PRINT" <2> WITHHOLD DELIVERY" FRInT 

772 GETQ* IFQ*-""THEN772 

773 Q»VAL<Q*> 

774 IFQ<10RQ>2THEN772 
776 IF Q»l THEN 800 

780 PRINT-O.K., DELIVERY WITHHELD. 

781 PRINT PRINT"WELL GO ON TO THE NEXT HOUSE. .." KRINT 

782 W*W+1 GOTO 540 
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CREATIVE COMPUTING 




800 IF F=l THEN 850 

810 GOSUB 20O0 

815 IF R<=60 RNB D=2 THEN 830 

820 GOTO 1025 

830 PRINT PRINT"** THE OWNER LET THE BOG OUT **" PRINl 

850 GOSUB 4O00 RF-RF+K0 

370 PRINT"** ITS COMING TOWhRBS VOU" 

875 PRINT"WHRT HO VOU WHNT TO DO? 

880 PRINTPRINT" (l)RUN HWrtV 

885 PRINT" (2>USE CHEMICHL SPRHV 

890 PRINT" <3>STHNB STILL 

900 PRINT" <4>WflLK f)W«V" PRINT 

902 GETZ*IFZ*«""THEN902 

903 Z«VRL<Z*>IFZ=0THEN902 IFZ>4TH£N9W2 
910 ON Z GOTO930, 935, 970, 990 

930 RF*RF+20 ND=NB+1 RH=l GOTO1OU0 
935 IF RNDC1 >>.4THEN950 
940 PRINT"VOU CHN T GET IT OUT ' ' i . . . " 
945 RF=RF+5 GOTO 1000 

950 PRINT"PS3SSSSTTTTTTTT "PRINT 

952 IF DFO10THENPRINT"VOU SPRHVEB R HHRMLESS BOG"" 

955 IFBF>25THENPRINT"THRT WHS CLO^E ' " 

960 RF=RF-30 GOSUB20O0 IFR CMfMDOP-8 THEN1 k»00 

965 PR I NT "THE CUSTOMER SMW THrtT' " " H=H+1 

96? IFCPO0THENPRINT"VOU SHOULDN'T USE HHL1 RROUND KIBS'" 

968 GOTO1000 

970 IFRF<*100THENPRINT"GOOB JUBGEMENT'" 

975 RF=RF-20 GOTO 1000 

990 IF RF<»1000THENPRINT"GOOB CHOICE. " PRINT 

995 RF=RF-20NB=NB+1 RH«1 

1000 IF RFM00 THEN 1060 

1010 PRINTSPC<6>: "*«** BITE fl^'OIBEB ****" PRINT 

1020 IF Rfl»l THEN 1040 

1025 PRINT"BELIVERV COMPLETES", 

1035 GOTO 540 

1040 PRINT"BUT VOU FHILEB TO MHKE THE DELIVERY." 

1050 GOTO540 

1060 PRINT PRINT" II II RBITE 1 1 II * : NB*NB*1 

1065 GOSUB 2000 B=l PB«PB+1 

1067 PRINT PRINT "HE GOT YOUR ' 

1070 IFR>90THEN1135 

1080 IFRNBUK.5THENPRINT" RIGHT "; GOT01115 

1090 PRINT" LEFT ", 

1115 IF R<-35 THEN PRINT"LEG. ' 

1120 IF R<=70 THEN PRINT'TOOT. 

1125 IF RO80 THEN PRINT"HRM. ' 

1130 IF RO90 THEN PRINT"HHNB. 

1135 PRINT "BOBV. " GOTO 1200 



GOTO U00 
"GOTO 1200 

GOTO 1200 
" GOTO 1200 



1200 PRINT"VOU WILL NEEB TFERTMEN 

1205 PR I NT "VOU RE OUT OF THE GrtME'' 

1210 N«N+1 GOTO15O0 

1490 FORZZ-1 TO 1000 NEXT 

1500 PRINT PRINT PRINT 

1505 PRINT"*********** SUMNHRV ♦ ♦♦♦*«*****•■ PRINT PRINT 

1510 PRINT"VOU COMPLETEB ",N-W-NB-1," DELIVERIES." 

1515 IF B=0 THEN 1525 

1520 PRINT"RND WERE BITTEN. "GOTO 1530 

1525 PRINT"RND WERE NOT BITTEN. " PRINT 

1530 PRINT"VOU RLIENRTEB "-H+W+NB; "CUSTOMER'.S •" 

1550 PRINT"BV USING HftLT OP FHILING TO BELlvEP. " PRINT PRINT 

1560 PRINT"BO VOU WHNT TO TRY RGRIN? 

1570 GET Q* IF Q«»"" THEN 1570 

1580 IFQ*»"N"THEN9*99 

1590 GOTO 148 

1995 G0T09999 

2000 P-INT'. 100*RNB(1 >*l > RETURN 

3000 FORDD" 1 TO5000 NEXT RETUF N 

4000 REM BOG FHCTORS 

4005 BF*0 

4010 IFR<»40THENT*="GERMHN SHEPHERB" BF=BF+10 GUTO4070 

4020 IFR055THENT«="MUU" PF=BF+5 GOTO4070 

4030 IFRO65THENT*»"P00BLE" DF-DF+1W : GOTO407O 

4040 IFR<=85THENT*»"BIG BOG" DF-B^-uti O0TO4070 

4050 IFR095THENT*="LITTLE BOG" GOTO4070 

4060 T»*"BOBERMRN" 

4070 PRINT-ITS fl ",T*,"." 

4075 REM BRRK 

4080 GOSUB2000 

4085 IFRO30THENPRINT"IT"S NOT BHRKING" DF=DF-lk) GOTO4100 

4090 IFR<*80THENPRINT"IT S BRRKING HT VOOl ' 

IiK=BF*lNT<RNB' 1 '*6> GOTO4100 
4095 PRINT"IT S BhRKING HNB GROWLING I" ■ BF-DF* 10 
4100 REM TAIL 
4105 GOSUB2000 

4110 IFRC33THEN PPINT"IT'S THIL IS BOWN. " BF=BF-ltf GOTO4200 
4120 IFR066THENPRINT"IT S THIL IS UP fVlD WHGGING SLOWLV. " •' 

BF»BF+5 GOTO4200 
4130 PRINT"IT'S THIL IS UP HUB WHGGING KHST'" BF=DF+5 
4200 REM OWNER PRESENT 
4205 GOSUB20O0 OP«0 
4210 IFRO60THEN4300 
4220 IFR075THENPRINT"THE OWNER IS OUTSIDE." OP=l DF»DF+lk> 

GOTO4300 
4230 PRINT"THER£ IS R CHILB NEHRBV. " BF=DF+10 OP»l CP«1 
4300 RETURN 
9999 PRINT"O.K. , THHNKS FOR PlRVING DOGBITEl" ENB 



RUN 

THIS SIMULA?: HE ON ACTUAL 

DOG ATTACK DATA COLLECTED BY R. LOdC-iOOD 
AND A. BECK IN ST. LOUIS, MO . 

THE LIKELIHOOD OF AN ENCOUNTER WITH 
A DOG HAS BEEN MADE HIGHER IN THIS 
SIMULATION TO MAKE THINGS MORE 
EXCI" 

THE OUTCOME OF AN ENCOUNTER 
WILL DEPEND ON YOUR DECISIONS AS WELL 
A: ON ENVIRONMENTAL FACTORS AND CHANCE. 

HIT ANY KEY TO BEGIN 



YOU ARE A LETTER CARRIER IN THE 
CITY OF GNAWSHVILLE. WHICH HAS A DOG 
BITE PROBLEM. 

YOU ARE TO ATTEMPT TO MAKE 1)3 
DELIVERIES ON YOUR ROUTE. IF YOU 
DO THIS WITHOUT BEING BITTEN OR ALIEN 
ATING YOUR CUSTOMERS... YOU . 

CHECKING MY RECORDS I SEE THAT 

YOU HAVE BEEN BITTEN TIMES 

BEFORE. 

YOU'RE EITHER NEW TO THIS CAME OR 

SIMPLY LUCKY... WATCH OUT!! 

DO YOU WANT TO ( 1 ) CHOOSE AN 

:NMENT OR (2) HAVE ME ASSIGN YO> 
]RY TO BE FAIR) 
TYPE THE APPROPRIATE NUMBER 
2 



GNAWSHVILLE HAS FOUR NEIGHBORHOODS 

(l)PUNY ARMS-LUXURY APTS. 

(2)SUPERCILI0US MANOR-UPPER INCOME 
SINGLE FAMILY HOUSES 

(3)TACKYTOWN-MID INCOME 1 AND 
2 FAMILY HOUSES 

CORATHAVEN-2 FAMILYHOUSES 

I'LL ASSIGN YOU A NEIGHBORHOOD. 

YOU'LL BE GOING TO TACKYTOWN 

HIT ANY KEY TO BEGIN 

DELIVERY # 1 

YOUR DELIVERY IS REGULAR MAIL 
THERE DON'T SEEM TO BE ANY DOGS 
DELIVERY COMPLETED 

DELIVERY » 2 

YOUR DELIVERY IS A PACKAGE 
THE CUSTOMER WILL HAVE TO OPEN 
THE DOOR TO GET IT. 



DELIVERY # It 

YOUR DELIVERY IS A POSTAGE DUE LETTER 
THE CUSTOMER WILL HAVE TO OPEN 
THE DOOR TO GET IT 



O.K., 
FIRST 



I'LL GIVE YOU AN ASSIGNMENT 
:UGN YOU A SCHEDULE 



YOU ARE A SUBSTITUTE CARRIER 

HERE IS rOKETHING YOU SHOULD K 

SUBSTITUTE CARP": IN FOR RE>: 

AND ARE CONSIDERED TO BE STRANGERS 
BY THE LOCAL D 
HIT ANY KEY TO CONTINUE 



..... D0G A LERT ••••• 

THE DOG IS INSIDE. 

WHAT DO YOU WANT TO DO^ 

(I) ATTEMPT DELIVERY 
(?) WITHHOLD DELIVERY 

2 

O.K. .DELIVERY WITHHELD. 

WE'LL GO ON TO THE NEXT HOUSE. 

DELIVERY n 3 

YOUR DELIVERY IS REGULAR MAIL 

••••• DOG ALERT ••••• 

THE DOG IS SECURELY CONFINED. 
DELIVERY COMPLETED 



• •••• DOG ALERT ••••• 
THE DOG IS INSIDE. 
WHAT DO YOU WANT TO DC 

(1) ATTEMPT DELIVERY 

(2) WITHHOLD DELIVERY 
1 

! ! ! ! TOE OWNER LET THE DOC OUT ! ! ! ! 

•••• IT'S COMING TOWARDS YOU •••* 

IT'S A GER!AN SHEPHERD 

BARKING 

:AIL IS UP AND WAGGING SLOWLY 
THE OWNER IS PRESENT. 

WHAT DO YOU WANT TO DO? 

( 1 ) RUN AWAY 

(2) USE CHEMICAL SPRAY 

(3) STAND STILL 

(4) WALK AWAY SLOWLY 



##### A BITE ##### 

THE DOG GOT YOUR RIGHT HAND 
YOU WILL NEED TREATMENT 
YOUR 'RE OUT OF THE GAME 



SUMMARY 



YOU COMPLETED 2 DELIVERIES 

AND WERE BITTEN! 

YOU ALIENATED 2 CUSTOMER (S) 

BY USING THE SPRAY OR FAILING TO DELIVER 

DO YOU WANT TO TRY AGAIN? 



THANKS FOR PLAYING DOGBITEl! !! 
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There's only one small 
computer that can give 
you your heart's desire. 

Sorcerer from Exld y. 

You don't mean to be greedy. But you re 
part of the new Gimme generation with big 
plans for the future. You expect your computer 
to be flexible enough to keep up. Only one 
system on the market today can do that: the 
Exidv Sorcerer. 

280 & Plug-In rom software Packs 

The Sorcerer uses the popular Z80 
microprocessor as its "brain-center." Combine 
this with Exidy's plug-in ROM PACs', M and 
you ve got a dynamite computing center right 
at your fingertips. 

Our ROM PACs are special plug-in 
software cartridges that turn your Sorcerer 
into all sorts of different computer centers 
instantly. Just pop a STANDARD BASIC PAC™ 
into Sorcerer, and you re ready to program 
any application in high-level BASIC. Or plug 
in a DEVELOPMENT PAC™ and you have 
a low-cost Z80 software development 
system costing less than $1700. 

If words are your life, 
consider our WORD- 
PROCESSOR PAC™ 
It turns your 
Sorcerer into a 
modern text editing 
and formatting 
system for less than 
$2600, This car- 
tridge offers many 
benefits, including: 
automatic text 
wraparound, search 
and replace com- 
mands, and powerful 
macro programming. 

And, to make it 
easy for you to put your 
own particular application 
software in ROM, we ve also 
provided an EPROM PAC™ It has 
sockets for four user- supplied 
EPROMs with capacity up to 
16K bytes. 

s- 100 Expansion A 128 
User- Defined Symbols 

The Sorcerer was created 
to withstand Gimme ' attacks. 
It's designed to be the hub 
of a busy computing operation 
now, and tomorrow when 
your demands increase 
or change. 

Sorcerers standard 
features, such as high-resolution 



graphics, and thecapabilitytodefine up to 128 of your own 
letters and symbols, give you an amazing flexibility to 
do things you simply can't accomplish with any 
other computer. 

Our S-100 expansion unit lets you 
take advantage of the many useful S-100 periph- 
erals currently available from dozens of 
manufacturers. And that includes everything 
from music and speech synthesizers for the 
hobbyist to appliance controllers for the home 
and the latest Winchester disk drives for 
small business computer applications. 

Its also easy with Sorcerer to 
add on a printer, an acoustic coupler, or 
a modem, because our system has 
built-in parallel and RS232 Serial 
I/O ports (features normally 
offered as add-on options 
by most other small 
computer makers 
today). 
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The best of Sorcerer 


Hardware 


Price* 


D The Sorcerer computer- 16K RAM 


$1295 


expandable to 48K 4 K ROM -resident 


(16K model) 


operating system has built-in printer 


$1395 


driver 50-pin I/O connector for S-100 


(32K model) 


expansion 25-pin parallel interface; 


$1495 


25-pin serial interface Serial interface 


(48K model) 


operates one or two cassette recorders 




Graphic resolution of 240x512. 30 




lines of 64 characters. 8x8-dot matrix 




Character generator contains full ASC II 




set (upper & lower case), plus standard 




graphic symbols User may define up 




to 128 characters Keyboard is 63-key 




data processing type, plus 16-key 




k numeric pad 




Video Display: industrial grade 


$ 499 


W 12-inch CRT (P31 phosphor) 




D Display Disk: single unit package 


$2995 


containing two quad density dual floppy 




disks (630K bytes) with controller and 




12-inch industrial grade CRT (P31 phos- 




phor) Includes CP/M 1 " and Microsoft 




disk-extended BASIC 




Floppy Disk Subs/stems: single 


$1150 


dual -density floppy disk ( 1 20K bytes) and 




controller in one package Includes CP/M™ 




and Microsoft disk-extended BASIC 




s 100 Expansion Unit: self- 


$ 419 


contained 10-amp power supply and 




motherboard with 6 card slots Daisy 




chain units for more slots 




Software 




□ Development PAC™ 


$ 99 


□ Word Processing PAC™ 


$ 199 


□ EPROM PAC m 


$ 49 


D Microsoft Disk-Extended BASIC 


$ 500 


D CP/M™ Operating System 


$ 145 


• u S domertfic once* only Subject to change without notice 




M ■* * Registered Trademaflc of Digiiei ReetMrct) 





Satisfy that urge 

When you discover the many 
exciting ways Sorcerer can satisfy all 
your Gimme urges, you'll say: 
"I'm in sheer Exidy." For the name of 
your nearest dealer, or additional 
information, write or call our Marketing 
Communications Department. 




Data Systems Division 
390 Java Drive 
Sunnyvale. CA 94086 
(408) 734-9410 
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Graphs provide a useful means for 
investigating the properties of func- 
tions. Roots and maximum and mini- 
mum points can be estimated, regions 
in which the function is increasing or 
decreasing can be readily determined, 
and so on. Since calculating enough 
points to make a meaningful graph can 
be tedious and time-consuming, it is 
logical to consider applying the speed 
and accuracy of a computer to the 
problem. The purpose of this module is 
to illustrate the advantages and limi- 
tations of using a computer in such 
applications. 

After reviewing the graphing 
process using a second degree poly- 
nomial as an example, we will formu- 
late a graphing algorithm. We will then 
write a computer program which uses 
this algorithm. Finally, we will suggest 
other graphing problems which will 
require that you write more sophis- 
ticated graphing programs. 

Graphing a Second 
Degree Polynomial 

In order to graph a function f (x) we 
must obtain a list of ordered pairs of 
numbers of the form (a, f(a)); these 
correspond to points in the plane 
where a is the abcissa and f(a) is the 
ordinate. Recall that the set of possible 
values for a is called the domain and 
the set of possible values for f(a) is 
called the range. 

Let's look at the function f (x) = x 2 + 
4x + 7 on the domain [-4 s x s 0]. We 
must now find ordered pairs of num- 
bers by substituting values of the 
domain into the function and finding 
the corresponding values of the range. 
We will do this only for the integers in 
the interval. 



-4 
-3 
-2 
-1 




f(x) 

7 
4 
3 

4 
7 



Now we plot* these points on a 
rectangular coordinate graph as 
follows: 



#»»«*»# -.5 ###»###*«* 
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This Is • reprint of on* of the original Project Solo curriculum 
modules developed at the University ot Pittsburgh. Protect Solo was 
supported in part by the National Science Foundation, and It was 
directed by Tom Dwyer and Margot Critchfleld. The modules were 
authored by various persons, including project staff, teachers, and 
students. 

It should be kept in mind that Project Solo began In 1969 (which is 
probably before some of Creative's readers were born.) Undoubtedly, 
many of the modules would be done differently today. There are also 
surely errors to be found, and neither Creative Computing, the authors, 
or NSF can warrant the accuracy of the reprints.- But as a starting point 
for your own explorations, they should make a good (albeit slightly 
ancient) set of shoulders to stand upon. We hope you enjoy the view. 
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Graphing, cont'd. .. 

If we draw a smooth curve through 
the points we see that the graph of f (x) 
= x 2 + 4x + 7 is a parabola. Note that the 
domain [-4 < x < 0] was well chosen 
since it contains the vertex (minimum 
point). What can you say about the 
roots of the equation f (x) = x 2 + 4x + 7? 

Formulation of the Algorithm 

At this point we will analyze what 
we have done in making a graph by 
hand into a number of steps without 
referring to a specific function such as 
f(x) = x 2 + 4x + 7. 

The result will be an algorithm 
which can be applied in general. 

Step 1. Choose a domain of interest. 

This will be an interval of the 

form [a < x < b]. 
Step 2. Choose a step size d. 
Step 3. Assign the value of a to the 

variable x. 
Step 4. Calculate f(x). 
Step 5. Place a mark at the point 

(x, f(x)) on the graph. 
Step 6. Increase x by the step size d. 
Step 7. If x s. b go to step 4; otherwise 

stop. 

Note that steps 4 through 7 are 
repeated; hence f(x) is computed and 
the corresponding points plotted for 
x = a, a + d, . . . until x > b. 

The Program 

Below is a computer program 
written in Basic which uses the 
algorithm we developed to produce the 
graph above. Try the program by 
copying the statements exactly as 
shown. Try to relate the statements of 
the program to the steps of the 
algorithm. 

10 LET A=-4 

15 LET B=0 

20 LET 1=1 

30 LET X=A 

40 LET F=Xt2+4*X+7 

50 PRINT TAB<10): X: TAB(F+11): 

60 LET X=X+I 

70 IF X<=B GOTO 40 

75 PRINT " 1234567" 

80 END 

"TAB(10)" in statement 50 causes 
X to be printed in the eleventh space; 

similarly, TAB(F+11) causes the to 

be printed in the (F+12)th space (not 
the (10+F+12)th). In statement 75 be 
sure to leave 12 blanks before the 1. 
(Can you think of a better way to do 
this?) 

Exploration 

The following exercises require 
that you write programs which pro- 
duce better graphs than the sample 
program can handle. 
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* Rotate this sheet ot paper 90° counter- 
clockwise to see the graph as shown in text- 
books. We have deliberately shown it in the 
form that would be printed on a computer. 



Above is the graph of a parabola 
produced by a Basic program. Revise 
the program in the previous section so 
that it produces a comparable graph 
(in terms of number of points plotted, 
size, etc.) of the function f (x) = x 2 + 4x + 
7 for -4 ^ x s. 0. 

2. Write a program to graph the 
function f(x) = 0.1 x 2 -0.2xfor-1 <;x<i3. 
Hint: Multiply the function by a "Scale 
Factor" and relable the y-axis. How 
would you handle the problem of 
negative values of f (x)? Notice that the 
roots of the polynomial equation are 
values of x where the graph crosses the 
x-axis. This means that f (x) = at these 



points, which are therefore sometimes 
called "Zeroes" of the function. 

3. Write a program to use in 
estimating the minimum value of the 
function f (x) = (x 2 + 1 )/x, 0.2 i x < 4.0. 
(Why wasn't x=0 included in the 
domain of f?) 

4. Write a program to solve the pair 
of equations: 

y = 0.9. 

y = y 3 x 2 -y 2 x 
Hint: Write a program which graphs 
both functions at once; the solutions 
are the values of x where the graphs 
intersect. o 



Try a Really Different Kind of Software 
for Your TRS-80, PET, or APPLE ! 




Cross swords with a band of dastardly 
robbers in their mountain lair in the 
Dutestom-% of Ryn. You explore the 
i averns shown on your video display and 
vanquish the monsters in real time. You 
have just 20 minutes to recover the pre* 
tious Oatestones before lime itself stops. 

Monsters — Melees — Magic! 

The Datestone* of Ryn introduces you 
to the superlative DUNJONQUEST game 
system. Other games in the series may pit 
you against an evil wizard or the frightful 
insectoid monsters of the god Apshai. In 
the Oatestones your main opponents are 
human, but look out for other nasty critters 
lurking in the darkness. You have 14 different 
commands ranging from moving (as fast or 
as slow as you like so long as you don't tire 
yourself out) to searching the walls for 
secret doors. 

For just $14.95 you get the Datestones of 

Ryn on cassette ready to play, and a superbly 
illustrated booklet that tells you all about the 
game. Please specify the version you want 
TRS-80 (Level II, 16K). PET ( 16K old or new 
ROMS), or APPLE (32K Applesoft). 

Ask your dealer or send today to: 

AUTOMATED 
SIMULATIONS 

Dept R3 
P.O. Box 4232 
Mountain View. Ca. 94040 
California residents please add 6'1. sales tax. 
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Another new game from Creative Computing 
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Richard Kaapke 



DUKEDOM is a much extended version of the 
popular Hammurabi land management game. The game 
is fun to play, but it is also an outstanding educational 
tool for learning to manage limited resources. There are 
also hazards such as rats, locusts, plagues, taxes, and 
wars with which to contend. 

The version of DUKEDOM presented here runs in a 
48K CP/M system with Microsoft Disk BASIC. About 13K 
of BASIC workspace is used. Thus, with the appropriate 
conversions, this game will probably run in a 16K Level II 
TRS-80. It can also be converted to run in Applesoft but 
will probably take more than 16K because of the more 
extensive conversions involved. 

For Level II TRS-80s: the only known necessary 
conversions are for LINE INPUT and DEF FN. For the 
former, use regular INPUT, which works fine although 
it's not as tidy. To convert DEF FN, expand out the 
functions in line with the program. For example, line 
1050 would become: 



Q3Z > RND(1> * (1 + U2% 
and line 6500 would become: 



Q1Z) + QU 



♦ F3Z - <-F3Z>> ♦ (-F3Z) 



XI * (RNBU) * (1 
♦ R<8>> ♦ 4 
[think about it!] 

For users of other computers, we suggest you buy a 
Level II manual at your local Radio Shack store to find 
out how Microsoft Extended BASIC works. Disk 
capabilities are not required except for printing the 
instruction file, reproduced here verbatim. Enjoy! — SN 

type niuaoH.ua 

Ton art •«■ of nwil Mm chetta by the High «ing to help run tht 
Kint«tn. Tour luchy li net it tht btft of lhapt, and your Jib ti to 
build up Ut population, laid holdingi ••4 gram rfiirvii. Your ttcrtt 
aabltlai 1« to btcoat povtrful tieugk to ovtrthrou the High Kug. 

The gaae eyelet o> an annual bam, and It l« now fill and tht harvttt 
hai jirtt boon conpltttd. Each yaar at thu tut tht conputtr mil 
dupliy tht cvrraat populatloa, land and frail totali, followed by I 
dttailtd roport if tht prtvioui ytar'l tvtati. Unto that laid and 
grata art •iiturtd la aetrlc umtt hictirti <",«.> and btctolltan 
(It.), rttptctlvtly. 

EKh ytir you »1U havt tt aake tht following dtcliiom 



Ym ant dtcldt hot wKh frill to fttd tht ptatanti. 14 NL. of grain 



Hill juit tdequately fttd oat poatatt; 11 will ciuat iom htiigtr and 
decreate tht ptaiaatt' flfbtlif ability, aad 12 or fiuer will cauie 
ttat ttarvatioat. Tht ptatanti till coaplali If you try to itirvt thm 
tictttlvtly nd tbty kaow that you art holdlaf back frain. If you fttd 
tat ptataati lira than l« Ml. tach (up to a naxlnun of II) thty Mill 
■pproclatt tht boo* aad fifht botttr la aay var tht following manor. 
A loaf ttra itiory kttpt tract, of tht ptatanti' cuaulatlvt attitudt (It 
fadtt Wtoly ilth tint) aad If you crtatt tufflcltnt bad uill (by 
uadtrfitdlif than, ftr liftaact) thty till dtpoti you. Tou nay aattr 
tit quantity of frala for tht ptatanti In too uiyit Huabert let! than 
1M art littrprtttd at htctolittrt-ptr-penint, uhllt aa oatry of 100 
or «trt riprtitnti tkt total aiouat far tht tatlrt population. 

land to buy at aa ML. /Ma. ■ 

Eator tht auabtr of htctartt of land you want to buy. Tht prictt 
offortd vary froa about 4 htctolittrt/htctart to about 10, depending 
pr manly aa latt yoar't crop ylold. If you don't uaat to buy aay 
laad, oator 0. Tou Mill thoa bt flvta tht option of tolling your land 
at a prlca oao ualt lauor thaa tht buying prlco. Eator tht nuaber of 
htctartt you uaat to toll, or oatar If yau doa't uaat to toll aay. 

(.aad to plaat • 

Eator tht auabtr of htctartt you mth to plant. Each hoctart plaittd 
mil roqutrt 2 hoctolltori of grata to tood It. Alto, rtntnbtr that 
tack poatait caa plaat aad cara for aa aoro than 4 htctartt. Thtrt it 
nt ftrtlllztr aad aa altaraatt crtp, to laad utod aany yoart la a rou 
btctaot dopltttd. Tht antual raport lltti tkt auabtr of htctartt you 
havt tf tach tf tix claim fra* 100X yltld to OX. la any flvta ytir, 
laad uttd li any dut aovot 1 tttp dour tt btlig totally dtplatod 
uhiit uauttd laad novot too ittpi clotor to fallau (lOOZ). Tht boat 
quality laad mil aluayt ba plaatad flrit. Tht yltld for fallow laad 
it calculattd tack ytar at raadoa (vartaacot la tht ttatktr) aad rangtt 
fraa 4 to 11 ktcttllttrt if gram kirvttttd fir tach hictan plaittd. 
Tht actual yltld tktalaad will bt tkt ivirigi gtntrittd by tht variout 
qualititt of land utid. 

Sptclal Optratlag lattructltat 
Uhrn a rtipomt It pnaptod by a "T", a Y or H aay bt glvoi fir Ytt or 
Nt, rttptctivtly. * tlaplt rttura mil bt iituntd to bt a "I" rotponto. 

Ukti a rttpoitt It proiptod by aa *•*, a aoa-aegattvt lattgor it 
required. Aay fracttaa mil ba trlaaad froa input, aad a naplt rtturn 
Mill bt littrprtttd it it aatry af 0. 

Tblt vtnion af tUKEBOB allaut tkt playor to havt tht printing of 
tkt long dttailtd rtpirtt taltttd froa tkt gam. • btglantr tkould 
rttpotd •»• li irdtr tt rtctlvt tkt long but kilpful raportt. »n 
•iporltactd lUKEBOn playtr ttldon If ovtr atadt thttt rtportt and 
oact • rtiptitt It glvta, tht option It ttt lid tht gam autt bt 
rt-rua frtn tkt btgiiitig la ardtr to ckaagt tht option, union 
"C brtaklag tkt progran aad titling »»■■!" ar l*>*N" (tht opttoa 
ytt/no flag yau ckaott) tkti COkTuulag tt ctavtnltat. 

•COft 

Additional laferaatloa oa IUKE»0A (Nlcrocoaputor Vonion) 

or 
Utlctat tt atdltvtluorldl loy, havt nt got a vacation far you... 
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. ACTION, STRATEGY, AND FANTASY 
for the SERIOUS games player 





Brain Games - 1 demands ingenuity. 

Two players bombard radioactive material with protons 
and electrons until it reaches critical mass and sets up a 
Nuclear Reaction. Dodgem requires you to outmaneuver 
another player to get your pieces across the board first. 
Dueling Digits and Parrot challenges your ability to 
replicate number and letter sequences. Tones lets you 
make music with your Apple (16K) CS-4004 $7.95. Strategy 
Games and Brain Games are on one disk (16K) CS-4503 
$14.95. 

Strategy Games - 1 keeps games players in suspense 

Vou and your opponent trail around the screen at a 
quickening pace attempting to trap each other in your 
Blockade. A 7 category quiz game will certify you as a 
Genius (or an errant knave!). Beginners will meet their 
master in Checkers. Skunk and UFO complete this classic 
collection (16K) CS-4003 $7.95 

Know Yourself through these valid self-tests 

.Find out how your life style effects your Life Expectancy 
or explore the effects of Alcohol on your behavior. Sex 
Role helps you to examine your behavior and attitudes In 
light of society's concept of sex roles. Psychotherapy 
compares your feelings, actions, and phobias to the 
population's norms and Computer Literacy tests your 
microcomputer savvy. A fun and instructional package 
(16K) CS-4301 $7.95. Know Yourself and CAI Programs 
are on one disk (16K) CS-4503 for $14.95 



You're in command in Space Games - 1. 

Maneuver the TIE fighters into your blaster sights and 
zap them with your lasers to save the rebel base camp 
from annihilation in Star Wars. Rocket Pilot is an ad- 
vanced real time take off and landing game. High resolu- 
tion graphics, exploding saucers and sound effects add to 
the suspense as you repel the Saucer Invasion. Finally, a 
bonus graphics demonstration, Dynamic Bouncer (16K) 
CS-4001 $7.95. Space Games and Sports Games are on 
one disk (16K) CS-4501 for $14.95 

ACTION 

Sports Gomes - 1 puts you in the Apple World Series 

Take the field in the Great American Computer Game. 
Mix up your pitches to keep the batter off balance. Move 
your fielders to snag the ball before he gets to first. Balls 
and strikes, double plays, force outs, and errors let you 
play with a realistic strategy. Also in the line up — Slalom, 
a championship downhill ski race. Torpedo Alley, and 
Darts (16K) CS-4002 $7.95. Space Games and Sports 
Games are on one disk (16K) CS-4501 for $14. 95 

It's easy to order SENSATIONAL SOFTWARE for your Apple II. 

Send payment plus $1.00 shipping and handling in the U.S. ($2 00 foreign) to 
Creative Computing Software, P.O. Box 789-M, Morrlstown, N.J. 07960. N.J. residents 
add $1 .00 sales tax. Visa, Master Charge and American Express orders may be called in toll 
free to 800-631-8112 (In N.J. 201-540-0445). 

For a FREE Sensational Software Catalog of over 400 programs for eight popular systems circle reader service #207. 
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Sentral Infornation 

Rutting totali art ntintaintd by the computer. All additioat 

aid subtractions art aadt at oact and further transactions arc United 

by th* currtat balanct. Do crtdtt If allowed (with one exception). 

Oae hectare of laad equals about 2.S aerti. On* hectoliter of grain 
equals about 2.8 bushels. 

It li (usually) necessary to gaablt occaslonly to win. Host 
ganblts consist of buylag laad you can't afford at very low prices 
aad gambling that yield mil be high and there uon't be a uar. If 
the ganble failt, you will tpead the eext ten yean recovering 
(If you survive, that la). 



AH peasant deaths fron uar cause resentnent to build up against you. 
Attack by your oua nercenjries is quite heavily resented. 



Plagues and Poxes 

The plague will kill off a third of tht population, but ia 10 doing 
It coaferi a 13 year innualty on the survivors, therefore the plague 
caanot occur again for at least 13 years. 

The pox Is less deadly; it kills tOI or fewer peasants but coafori ao 
mnunity. It can occur several years in a roe. 



food allocation 

By overftediag the peasant! uhon possible, you can build up good still 
aeong the population. This nay save your life as it caa counteract 
unavoidable resentnent la the future (during tines of fanine, for 
lastaace). Judge lynch never sleeps' 

Land Trading 

Uhen you buy land you always receive eOX quality. Whea you sell land 
the nachlne sells your 601 laad until used up, then the 801 quality and 
finally tht 1001 If you sell that nuch. Tou can never sell 401 (or 
poorer) quality laad; no buyers mil accept it. 

There is another Unit on land sales: Tou caanot sell nor* than 4000 
HI. north in any one year. That's all the grata available to pay you 
uith. 

Crop Hazards 

Stnttintt tht rats get into the granary and eat up to 101 or so of your 
rtstrvt grain. Rats ntver eat field grata — field grain is eatea by 
the seven year locusts. They eat half of all your crop in the years 
that they appear. The yield printed in these years already includes 
locust losses. 

The king's Peasant Levy 

Occaslonly rats still eat so nuch of the High king's gram that sone of 
his workers starve to death. Hhea this happens, the king mil require 
sent ptataats fron tach of his luktt as rtplactnents. Tou nay supply 
then at rtquttttd or pay at alternate anount of grain. 

iart 

Ntighborlng tuket nay attack you, hoping to obtain sone land. This Is 
ntrt probablt in ytart of poor crop yitld. It it no stcrtt and you can 
attack firtt If ytu uish. This ntant that you and your peasaats go 
over there sone night aad burn a feu huts and generally nako a great 
dla. If yaur attack is lapresslvo, the nearby lute nay cancel his uar 
plans. This depeads on the sue of your attack force and the size of 
his current defense force. Tou till certainly lose sone peasants in 
tech aa attack. 



If your first attack fails, or 
war will occur. Tou had better 
is doing the Sane. * nercenary 
peuer. Ilerceaaries cost 40 NL. 
ntrceaarles available to you 
peasaats) exceeds your eneny's, 
acquires land fron the loser in 
ytu ftd tht ptatatts last fall 
nakt tht difftrtact bttutta a 



if you do not elect to attack first, the 
hire sone nercenariet since your eneny 
is north about 8 peasants in fighting 
each and there is a naxiaun of 73 

If your fighting pouer (nercenarles ♦ 
you win; otherwise he tins. The ulnner 
ratio to the size of the uin. How nuch 

is not inportant aad nay occasioaly 

la aad a loss. 



Tie ulnner also picks up tone grain fron the captured land aad is able 
te harvest the captured land aloag uith his oua (at the sane yield as 
his origiaal land). The land acquired (or lost) mil appear in next 
year's laad quality table evealy distributed botuoea the 1001, (01, and 
601 categorltt. 

Slnct tht ntrctaaritt art horse nounttd aad the peatantt art an foot, 
the nerceaartet attack first. Thut, a largt number tf nercenariet 
will keep doua your peataat lotttt uhtthtr ytu ula or lost. The 
ntrctaaritt nutt bt paid afttr tht battle. Tou caa use granary reserves 
atd tht actual grata capturtd fron acquirtd laad (the ont exception to 
the no-credlt rule), but aot the anticipated harvett (tht nerctnaritt 
want their pay 0811). 

If you caa't pay all the nercenariet, they mil attack your peasaats, 
killing then and collecting grain fron their huts until fully paid. 
Stnce the peasants doa't have nuch grain left this late ia the teasoa, 
even a snail default nay cost yeu a lot of peasaats. Incidentally, if 
the nerceaaries do turn on the peasants, they also rape every fenale in 
the luchy, naklng next year's birth rate very high. (Ue Ignore the fact 
that the uonen deliver only a fee nonths later — these are no ordiaary 
nercenariet.) 



Taxet and Expenses 

Tht High king charges a tax of 1/2 HL. of grain for each Ha. of laad 
yeu pottett (afttr uar gaint or lotttt). Tou had better be able to 
pay. 

After the grain it harvttted it nutt be m lied. The cattle granary can 
nill a naxmun of 4000 HL. during the year, additional harvett nutt be 
sttt to tht vlllagt nllltr at a chargt of 101 of the anount nllled. 
Thlt anouat it addtd to tht cattlt ovtrhtad uhtch it fixed at 120 HL. 
per year. 



Ilrtht and Deaths 

Dariag tht ytar, tont aatural deaths and nunerout births have occured. 
Both art lunptd together at if thty occur Just after the fall harvest. 

The conputtr now prints out tht rttultt for tht ytar and you ttart 
over again uith tht ptataat't food dtcition. 



winning tht Sane 

Through attutt laad nanagtnent, profitable real-estate trading, winning 
a few ears and lots of luck, you nay be able to build up your Duchy. 
If instead you ltt it decline, tht High King nay take It away fron you 
aad ttltct a atu ntnagtr. Aa untnploytd Duke caa find enploynent at a 
nercenary in tontbody else's gant. 

Protptrity bringt ltt ritkt. If you gtt too prosptrout, the High King 
nty becone uorrled and begin to subsidize uars agaiatt you. These 
subsidies get larger as the gane progresses. 

If you should persevere, you nay eventually beat sone Duke so badly 
that you succeed in taking over his entire luchy. In addition to the 
nere thaa 400 Hn. of laad you till obtain, you get all of his surviving 
ptatatts (your uar casualties will bt positive! and tht rtnaining 
caateatt of hit graatry. This pottt a rtal threat to the crown aad the 
High king will begin planning a direct attack againtt you. At the 
beginning of the following year the king will denand tulce the utual 
tax. Tou nay pay it and contlnut tht gant at utual, or you my refuse. 
Yeu will atvtr bt rid of tht doublt ttx oact it ttartt unlett you 
rtfutt to pay it. Thlt constitutes dtfitnct of your Leig* Lord and the 
King has hit txcutt for attackiag you directly. The rett of the yetr 
will go at utual txctpt that thtrt will bt no tax at all (no peatant 
levies tithtr) aad thtrt will bt ao uar threats (nobody dartt). 

Tht following ytar tht king will tttack just before planting tine. Tou 
will have to hire as nany foreign nercenarles as possible at 100 HL. 
each, gram la advaace (the loser won't be ia any position to pay). 
The progran will automatically hire as naay nercenarles as you can 
afford at the tine. There is ao Unit to the number of foreign 
nerceaaries ytu cm hire txctpt yaur currttt grain holdings. 
Each nerceaary has at nuch fighting power as t peasants. If your total 
fighting strength it greater than the king's, you uin. 230 to 300 
nercenariet ought to be enough, depending on how nany peasants you 
have. 

Either way, the gane is over. 6ood Luck 1 



Historical Haiver 

Ne historical accuracy is inplied ia any way by this gane. Except for 
the grain yields and pleating requlrenents, the gane is alnost pure 
fictlan. There uere feu nercenarles, Dukes did not often fight each 
other nor readily buy and sell laad, the church was a power to be 
feared. The netrlc systen had aot yet been developed aad the seven 
year locusts uert net so reliable. 

A luke uauld have as his lord not a King but a Count or Earl and 
wtuld havt under hln laroat or Harquittt. There various nobles were 
the fighting force of the kingdon (peatantt did not fight). Taxtt 
wtrt paid aot la grata but in ptrlodt of mlitary service. (Tet, the 
Hatloaal luard wat a nedieval iaventiea — at the latett.) 






102 



■■ 



APPLE MUSI 



*£= 



I ,*, ¥ « p-r i!U * ^ 



ggfrfeg 



3i 



^ 



^ 



J J JvW»>. . « b n - - 



SAUEI 



sub a 



94 



IMS OIL Tit "♦ 

74 FREE 



MUSIC ENTRY SCREEN 




APPLE MUSIC SYNTHESIZER 



SIMPLICITY 



Most music systems make you memorize octave numbers and cryptic note codes like QFS3. With 
the graphics based system invented by ALF, you just position notes on the screen with the game 
paddles. 



ADVANCED FEATURES 



With ALF's Entry program, you can quickly and easily insert, change, and delete notes; add new 
parts (up to nine); change time and key signatures; repeat sections or make "rounds"; and 
change sound parameters at any point in the song. 



QUALITY 



ALF has been selling personal computer synthesizers longer than anyone else. We won't settle 
for anything less than top quality. 

HARDWARE 

Our three-voice (model 10-5-16) synthesizer was the first Apple-compatible music product and 
is still the most advanced music synthesizer available for the Apple II computer. It simply plugs 
into your Apple and your home stereo system — complete Integer BASIC software is provided 
(Applesoft versions available at slight extra cost). 

Suggested list price: $265 -00 

SEE IT AT YOUR LOCAL APPLE DEALER. 

or for more information, write: 

ALF Products 

1448 Estes; Denver, CO 80215 
the leader in computer music 
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Cream 


Tear 1 Peasants 101 Land 700 Grain 462? 










Original HAnnuRABI ga«e concept by Rick Merrill and David Ahl (1?6?) 


Peasants at start 100 










KINGDOM program written by Lee Schneider and todd I'oros (!"'•! and 


King's levy -3 










distributed by Digital Equipment Corporation and, lattr, 


Natural deaths -3 










Data General Corporation 


Births ? 










Drtfinl DUKE60H program (loosely based on the 


Peasants at end 101 










f!»6D0H program! eritten in D-level Pl/I By 












Vince talbot, Loyola flarynount University, Los Angeles 


Land at start 600 










Rewritten (with extensive revision! in I.T.S. EXBASIC by 


Bought /so Id 100 










Jame E. Hanraban 


Land at end 700 










Adapted for /GAMES/ by David C. Barber 












Re-written from I.T.S. EXBASIC to Hewlett-Packard level F BASIC 


100Z 80Z 601 40X 20X Bepl 










then to DEC RSTS/E BASIC-PLUS then to Microsoft CP/N 


300 214 184 










Disk BASIC by Richard A. Kaaplo 


Grain at start 11 .'.' 










<t«> CP/N is a registered trademark of Digital Research, Inc. 


Used for food -1300 










of Pacific Grove, Ca. 


Land deals -600 










Urn) EXIASIC is a trademark of International Timesharing Systems, 


Seedings -800 










Inc. (I.T.S.) 


Rat losses -16? 










(tn) RSTS/E and BASIC-PLUS are trademarks of Digital Equipment 


Crop yield 3?»1 










Corporation (DEC), of Haynard, Dais. 


Castle expense -120 










<C> hicrosoft BASIC is a proprietary product of Microsoft, lac. 


Royal tax -350 










of New Mexico. 


Gram at end 462? 










(tn) PL/I is a trademark of International Business Machines, Inc. 


Grain for food • 11 

Land to buy at 17 HL./HA. « 

Land to sell at 16 HL./HA. ■ 100 

Land to plant - 400 

Yield « 10.43 HI. /HA. 

Rats infest the grainery 










^^sfc' 48? 


The High king requires 2 pea-.snts for Mil estates 










and nines. Uill you supply then (•»•;.' or pay 29U 












HI. of grain instead (No) • yes 










N^S^^S^^^L^^Iy 












^^^^^^^W 


Year 2 Peasants 10J Land 600 Grain .'183 

Peasants at start 101 

King's levy -:' 
Natural deaths -5 
Births • 
Peasants at end 

'.and it start 700 






ofwvrf^^ xC^A 








Bovght/told 












It end 










WJM i. # »/ l^a^t* 


• MI »« (01 WJ »l ten! 










Vf of yg<v>w .. 


ifln inn inn 










o i v ti x "';/y\3 












Iticrccoeputtr version ^^C^hvvy^^s^^ ^Sv^t^ 


■ ■ 46.' u 










'.rue". ions ' MO \ I 


Land deals 










--■ «:ih to skip ttM detailed report-; it trie »nd 1 \of »^ch year ' W 


See-: '800 
-sses 

v.eli 










T-;ar c Peasants 100 Lm 1 l\ 1 


.'astle e-:oe-se 










Peasants at start ?6 /J 


Oram at end 










natural deaths -4 ^ff 












Births K ^S^T 












Peasants at end ICO ^^^^ 


Oram for food - 13 










Land at start 400 


Land to buy st 18 HL./HA. ■ •) 










Land at end 600 


Land to sell at 17 HI. /MA. * 100 
Land to plant • 400 










lOOt 801 601 40X 20* Depl 


Yield ■ 8.1 HL./HA. 










21* 200 184 


Rats infest the gminery 

The High king requires 3 peasants for his estates 










Grain at start S1t3 


and nines, mil you supply then (Tes! or pay 300 










Used for food -I3M 


HL. of grain instead (No! • Y 










Seedings -768 












Crop yield 1911 












Castle expense -120 












Royal tax -JO0 


Year 3 Peasants 10/ Land 300 Gram 842) 










Grain at end 4t,v 


Peasants at start 103 










(Severe crop damage due to seven year locusts) 


King's levy -3 
Natural deaths -3 
firths 12 










Gram for food • 13 


Peasants at end 10.' 










Land to buv at 6 HL./HA. - 100 












Land to plant • 400 


Land at start 6<0 










Yield * ?.?8 ML. /HA. 


Bought/sold -100 










Rats infest the grainery 


Land at end 300 










The High king requires 3 peasants for his estates 












and nines. Will you supply then (Yes) or pay 300 


1001 801 601 40Z 201 Depl 










HL. of gram instead (No) ' TES 


100 200 200 
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THERE ARE SEVERAL WAY 

TO BUY A SMALL COMPUTER. 

HERE'S WHY BUYING FROM US 

MAKES MORE SENSE. 



We offer you more and 
better choices. Sunshine 
Computer Company sells the 
best selection of small 
computers available 
including DEC'S 11/03 and 
11/23, Cromemco's Z2-H and 
System Three, the new 
Tl 99/4, plus the best of 
Apple North Star, and 
Vector Graphic. From 
personal systems with 
floppy disks to full- 
fledged business systems 
with as much as 60 
megabytes of on-line 
storage. We can help you 
find the right software, 
too. We feature powerful, 
field-proven packages for 
general business 
applications by companies 
like Structured Systems 
Group, Serendipity Systems, 
and Professional Systems 
Development, Inc. We also 
offer packages for 
specialized applications 
like property management, 
word processing, and data 
base management. 



Better support than the 
little guys. When you buy a 
system from us, that's just 
the beginning. We stand 
behind every system we 
sell. Completely. Our 
factory-authorized service 
personnel can handle any 
hardware woes. Our expert 
programming staff can help 
you develop new applications 
or modify one of our proven 
off-the-shelf software 
packages to fit your special 
needs. Try getting that 
kind of support from your 
local computer store. 

Better prices and delivery 
than almost anyone. Price a 
system from one of the 
other big computer 
companies. Find out how 
long their lead time is. 
Then talk to us. We can 
sell for less because we 
buy in volume and pass the 
savings on to you. And, 
since we have most models 
already in stock, 
delivery is prompt. 



We're nearby. We're 
freeway- close to all of 
Southern California, 
located midway between 
LA. and Orange County, just 
off the San Diego Freeway. 
Come in and look at our 
demo systems. They're 
up and running in their 
optimum configurations so 
you can see exactly 
what you're getting. If you 
are out of the Southern 
California area, try our 
mail order service. Many of 
our customers have found 
it more convenient than 
going to their local 
computer store. For more 
information, call 
(213) 327-2118. 





■^Jr— " 




WA- ^2, *■/ ' ' 










1 PP WW I 



SUNSHINE COMPUTER COMPANY 

The Sensible Alternative. 
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Oram at start 


7185 


Used for food 


-1343 


Land deals 


1700 


Seeding! 


-800 


Wat losses 


-78? 


Crop yield 


3240 


Cast If fpense 


-120 


Royal tax 


-250 


Oram a*, end 


842 i 



1001 801 401 40* 20S Bepl 
21 51 221 100 170 



Oram for food ■ 13 

Land in buy at 15 HI. /HA. - 

Land to sell at 14 HL.'MA. ■ 1 

Land to plant • 400 

field » 4.4 HL./HA. 

Rats infest the griinery 



Tear 4 Peasants 112 Land 500 lirain 765? 



Peasants at start 
Natural deaths 
Births 
Peasants at and 

Land at start 

Land at end 



107 
-5 

10 
112 

500 
500 




1001 801 601 4051 201 Bepl 
100 100 200 100 



(irain at start 


842J 


Ustd for food 


-1405 


Seedings 


-800 


Rat losses 


-74? 


Crop yield 


2340 


Castle expense 


-120 


Royal tax 


-250 


Gram at end 


7439 



Gram for food • 134 

The peasants denonstrate before the ci-.tle 

with sharpened scythes 

Oram for rood « 13 

Land to buy at 12 HI. /HA. - 

Land to sell at 11 ML. /HA. < 

Land to plant • 400 

field ' 4.73 HL./M. 

Rats infest the ejrataery 



Grain at start 


4823 


Used for food 


-1547 


Seedings 


-»40 


Rat losses 


-574 


Mercenary hire 


-1400 


Fruits of uar 


107 


Crop yield 


21*1 


Castle expense 


-120 


Royal tax 


-281 


Oram at end 


4059 



50 



Grain for food • 14 

Land to buy at 3 HL.'MA. 

Land to plant • 430 

Seven year locusts 

Tield ■ 2.43 HL./HA. 

A nearby Bute threaten? uar; Dill you attack first ' TES 

Peace negotiations were successful 



Tear 7 Peasants 122 Land 413 Oram 1981 



Peasants at start 


121 


Uar casualties 


-8 


Natural deaths 


-5 


Births 


14 


Peasants at end 


122 


Land at start 


363 


Boueht/sold 


SO 


Land at end 


413 



10OZ 80Z 601 401 20 J Depl 
21 214 271 100 7 



Oram at start 


403? 


Used for food 


-14*4 


Land deals 


-230 


Seedings 


-MO 


Crop yield 


1 1?2 


Castle expense 


-120 


Royal tax 


-J06 


Urain at »n! 


1*81 



•ear 5 "eaients 1'» Lanr 509 Brain - u ; ' 





1 * 1 


... 









- 


« 10 


Laid at -•.»—. 




- -.- 




* nrt* »rt* *ft» «•/!. 





















-.ses 




Crop yield 


:voo 


Castle expense 


-120 


Royal tax 


-250'' 


Oram at end 


4823 




Oram for food * 13 
Land to buy at 13 HL./HA. • 
Land to sell at 12 HL./HA. • 
Land to plant • 470 

field • 4.28 HL./HA. 

Rats infest the grainery 

A nearby Duke threatens uar; Uill you attack first 7 NO 
Hon nany aercenanes etll you htre at 40 HL. each • 40 
Tou have von the uar 

Tear 4 Peasants 121 Land 343 Grain 405? 



Peasaats at start 


11? 


Uar casualties 


-7 


Natural deaths 


-3 


Births 


14 


Peasants at end 


121 


Land at start 


300 


Fruits of uar 


43 


Land at end 


543 



• flO'? " 10 

■he Deataa' ■ ■ .... 
with *r-?-feied *<:■•'•"■- 

-. '-- '-c< * "W1 

!.»-< *.c -J-- -* 4 HL./« 

to sel! at ! "'../"A. • 100 
rht Hifl ' your earnings 

' punittAeat «-- r»l';-- it vie* a iou price 
'-and Id r! -1 ^*. * *00 
u... vr . jgg . .,,..,, enough .— 

"'.. i' «r»in loft, 

L^ou?*? to r!r'. ?? - 

Land to olan* 

Tield « 7.21 HL./HA. 



Tear t Peasants 134 Land 313 Grain 144 



Peasants at start 


122 


Natural deaths 


-4 


Births 


20 


Peasants at ead 


134 


Land at start 


413 


Bought/sold 


-100 


Land at end 


513 



1001 801 401 402 201 Bepl 
40 271 121 41 



Oral* at start 


1981 


Used for food 


-1»81 


Land deals 


150 


Seeding? 


-150 


Crop yield 


540 


Castle expense 


-120 


Royal tax 


-234 


Oram at end 


144 



The peasants tire of war and starvation 
Tou are deposed 



106 



THOROUGHBRED 



HANDICAPPING 



HAS ENTERED 



THE 



COMPUTER 




Thoroughvest is on orgomzotion of computer 
progrommers ond consultaries aimed ot 
obtaining the most valid information available 
on the science of thoroughbred handicapping 
Their goal wos to find o mathematical method 
which would produce o positive return on the 
dollar ot the track To accomplish this, o major 
computer based research 6 development 
project was started It ended 3 years and 
130000 later. 

During that time a data base wos created 
containing every conceivable handicapping 
factor for over 1 6.000 thoroughbreds in over 
2.000 races. Each foctor was analyzed by the 
computer to determine It's relotive degree of 
importance Only those factors which 
produced the highest return on the dollar were 
considered for further study. Using the proper 
computer programs, these foctors were then 
tested to determine their effect on each other 
This wos necessary because using too many 
factors to handicap a race will produce the 
same negative results as using too few. After 
on additional 1.200 hours of onolysis. the 
method wos completed 

Thoroughvest conducted o 3 MONTH test at 
Aqueduct Averaging 4 or more races per doy 
PROFITS EXCEEDED 57 CENTS ON THE DOLLAR 
at Connecticut OTD. These results ore fully 
documented ond hove been certified valid. 

This record wos compiled during mid-winter, 
the worst possible time of the year Many 
races were played during rain or snow with 
track conditions ranging from sloppy to muddy. 

Thoroughbred rocing should not be treoted 
as on expensive gome but rother as a 
profitable business When considering on 
investment, the mom concern should be the 
return on each dollar Among the nation s top 
investors. ol0%to15% return per year is 
considered excellent Imagine how they d 
feel about 57 % in 3 MONTHS! 

Even the strongest willed person lets 
emotion influence his decisions at the track 
Thoroughvest s investment method Is a 100% 
mechanical procedure that outthinks the 
"experts" at a price Personal Judgments ore 
never required. Last minute trock information. 
post parade ond paddock inspection were 
proven unnecessary 

CIRCLE 199 ON READER SERVICE CARD 



THOKOl (.HW.M 



Cenaultant Retort t. Laenwd, t*in* dtUjr a*om. 4«po*M 

Pre* January M. 1*79 t* April 2t, 1979. fellaolf* the 
treceenree ••* fertn lr. rti«i-ouc»v*at •» |wm«Wi1 Cwlde. 
» — « • arefit •■cevalnc )? <«nU en the dollar at Aqueduct, 
rwctleut ore. 



ftobert f. Leonard 



*L1.J*L~ 



Charla* C. 
C<slMlon*r of Tha Superior Court, 
C«m*ctlcut 



When Thoroughvest begon their reseorch 4 
yeors ago, the computer boom was not 
anticipated Inevitably, similar projects will be 
storted due to the present availability of low 
cost computer systems Having enjoyed o one 



yeor advantage at the 3 major rocing circuits in 
the United Stotes. Thoroughvest now decided 
to release their Investment Guide. All 
computer programs ore reduced to simple 
arithmetic The guide is easy to use ond to the 
point. After all it wasn t written to enrich you 
on the subject of racing it just produces o 
steady return on your invested dollar. A 
LIFETIME MONEYOACK WARRANTY is included 

For those who presently own o home 
computer or intend to purchase one in the 
future o PROGRAM LISTING which ollows your 
system to moke the objective forecasts is 
included It is offered free of charge and wos 
designed to be compatible with all systems 
operoting with on 8K Oasic and having 8K 
free memory If your system meets these 
requirements ond the progrom foils to execute 
properly you may return it for modifications It 
is one of the most complete ond 
comprehensive programs available 

You will also receive a complimentary one 
month subscription to Thoroughvest s 
newsletter. Subscribers ore updated on the 
lotest developments by the computer, ond 
the results ore summarized using Trock or 
Connecticut OTD prices. 

If you hove ony questions now or need ony 
help or advice when you receive the 
Investment Guide simply write Thoroughvest 
ond you will be answered personally within 24 
hours 



["HOKOUGH VEST 92 elton road Kensington ct 06037 : 

Please send me the Investment Guide by first-class moil I understand thai it is offered with a Lifetime • 
Moneybock Worronty I enclose ISO 00 to cover oil costs 

Although Thoroughvest s Newsletter is mvoluoble to all hondicoppers results ore summarized, at this * 

time only for Aqueduct Oelmont ond Saratoga For your complimeniory one month subscription you may • 

choose between Trock or Connecticut OTD prices Track Connecticut OTD '. 

I do not own o home computer but include the free Progrom Listing J 



: I I own o 
Nome 



computer system include the free Progrom Listing 



Address 



City. 



Payment enclosed 
Account * 



Charge my 



MC Interbank # Signature . 



. Stote 

Visa 

. Expiration Dote_ 



-Zip 



Master Chorge 












LIST 
1000 



1002 
1003 
1010 



1030 
10*0 

1050 



1060 
1330 

1332 

1430 

1530 

1531 
1550 

1570 



1420 



1690 

1700 
1701 
1710 



1720 



CLEAR 400: 



D U K t u o n 



HICR0C0HPUTER VERSION 



LMOO 



2180 
2I»0 



21 »5 



2200 
2210 



2270 



2271 



2440 
2500 



BEF FNRZ(U1Z, 02Z) = RMB41 > • (1 t02Z -Q1Z) +01Z 
KEF FKXZ(OIZ) ■ FMZI-F3Z, F3Z.' ♦ HltlZ! 
60T0 U20 ' SKIP SUBROUTINE DEFINITIONS 

DECLARATIONS AMD SUBPROGRAIt DEFINITIONS 

Old P(8>, L(3), 6110), S(6>, U(6>, R(8\ Pl(8>, LK3), 04(10) 

PARTIALLT 6AUSSIAN RAHDON NUHBERS 

83Z * FNRZI01Z, 02Z): 

IF FHRZI01Z, 02Z) > 5 THEN OOZ » (03X <FNRZ(01Z, 02Z))/2 

ELSE 60Z ■ 83Z 
RETURN 

---REAB A YES-OR-NO RESPONSE 
LINE INPUT VI : VI ■ LEFTKVI, I): 
IF LEN(VI)»0 THEN VI«"N" ELSE 
IF ASC(VI) > »3 THEN VI • CHRKASCI VD-321 
IF VI«"N" OR VI«"T" THEN RETURN ELSE 
PRINT -Please answer Yes or No: ";: 60T0 13J0 

---READ A NUHERIC RESPONSE 
LINE INPUT VI : V ■ INT(VAL(VI>>: 
IF V >=0 THEN RETURN ELSE 
PRINT "Please niter a non-negative nunber: ";: 6010 1430 

— -COHHON ERROR NESSA6ES 

PRINT "But you don't have enaujh grain": 

PRINT -roil have- 8 "HL. of grain left,": 

IF X1>«4 THEN PRINT "Enough to buy" INKS/ID "HA. of land" 

PRINT "Enough to plant" INK6/2) "NA. of land": 

RETURN 

PRINT "But you don't have enough land": 

PRINT "You only have" L "HA. of land left": 

RETURN 

PRINT "But you don't have enough peasants": 

PRINT "Tour peasants can only plant" 4»P "HA. of land": 

RETURN 

INTROBUCTION TO PRU6RAN 

PRINT: PRINT "D U K E H": PRINT "mcrocinputer Vernon": 

PRINT: PRINT "Bo you uant initructloni » ";: SOSUB 1330: 

IF VI="N" THEN 2050 

OPEN "I", 2, "BUKE80H.INS" 

LINE INPUT 12, VI 

IF LEFTKVI, JK>"»EOF»" THEN PRINT VI: GOTO l.'OO 

PRINT "Bo you require a nore detailed description 

(it i LONG) ' ";: 60SUB '330: 

IF VI«"N" THEN 2050 

IF E0FI2) 1HEN 2050 ELSE 

LINE INPUT B2, VI: PRINT VI: GOTO 1720 

— -ONCE ONLY INT1IAL17.ATION 
CLOSE 2: 
F3Z '2: N ' l.?5 

START NEU GAHE 

PRINT "Bo you unh to skip the detailed reports at the e»d 
of each year * ■;: GOSUB 1330: Rl ■ VI 
READ TZ, CI, U1, U2, II, 0, P, L, G 
1 10 8: REAB PIIZ): NEXT: 

READ LUX): 

READ 6(IZ): 

READ 8(11)1 

REAB PKIZ): 

READ LKIZ): 
READ 08(11) I 




FOR IZ 

FOR IZ 

FOR IZ 

FOR IZ 

FOR IZ 

FOR IZ 

FOR IZ 



« 1 
■ 1 
« 1 



1 TO 3: 

1 TO 10: 

10 6: 

TO 8: 

TO 3: 



« 1 TO 10: 



NEXT: 

NEXT: 

NEXT: 

NEXT: 

NEXT 

NEXT 



' AND CURSE THIS BASIC FOR NOT HAVING HAT FUNCTIONS 

RESTORE 

BATA 0, 3.»S, 0, 0, 0, 0, 100, 400, 41", 

»4, 0, 0, 0, 0, 0, -4, 8, 

600, 0, 0, 

51*3, -13*4, 0, -.'68, 0, 0, 0, 1516, 

216, 200, 184, 0, 0, 



129, -300, 



01Z ■ 
02Z • 
02Z ■ 
81Z ■ 
01Z « 
Oil ' 
B2Z ■ 
Q1Z • 



1N1UALI7.E RANDON BASE TABLE 

: U2Z « ,': flOSUB 1050: R(1) ■ GOZ: 

: 60SUB 1030: R(2) - GOZ: 

: 60SUB 1050: R(3) ■ GOZ: 

: 02Z • 8: GOSUB 1030: P(4> • GOZ: 

: SOSUB 1050: RI3! " GOZ: 

: Q2Z • 6: SOSUB 1030: R(6) • GOZ 

: 60SUB 1050: R(7) = GOZ: 

: 60SUB 1050: R<8> = GOZ 

BISPLAT LASI TEAR'S RESULTS 




PRINT: PRINT: PRINT "Tear" TZ "Peasants" P "Land" L "Srain" 
G: PRINT 



IF RI-"Y" THEN 28T0 



' SKIP LONG REPORT IF NOT UANTEB 



2510 FOR J1Z ' I TO 8: 

IF P(J1ZK>0 OR J1Z«1 THEN PRINT PKJ1Z); TAB(20); P(JtZ.' 
2520 NEXT J1Z: 

PRINT 'Peasants at end"; TAB(20>; P: PRINT 
2600 FOR J1Z < 1 TO 3: 

If LTJ1Z1O0 OR JIZ'1 THEN PRINI LKJ1Z); TAB(20>; L(JIZ) 
2610 NEXT J)Z: 

PRINI "land at end"; TABI20); L: PRINT 
26T0 PRINT "100Z 80Z 60Z 40Z 20Z Oepl": 

PRINT USIR6 "I88I"; 5(1);: 

FOR J1Z * 2 TO 6: 

PRINT USING "NINtN"; SIJTZ);: 

NEXT J1Z: PRINI: PP1NT 
2720 FOR J1Z ' 1 TO 10: 

IF 8(J1*K>0 UN J1Z-1 THEN PRINT liKJTZ); TABIJO'; 'i'JTZ) 
2730 NEXT J1Z: 

PRINT "6rain at end"; TAB(20); 6: PRINT 
2800 IF YZ<'0 THEN PRINT "(Severe crop daeage due to seven year locusts)" 
2810 PRINT: PRINT: TZ ■ TI«1| 

FOR IZ « 1 10 8: P(IZ) « 0: M 

FOR IZ * 1 TO 3: L(IZ) = 0: NEXT: 

FOR IZ ■ 1 TO 10: 8(IZ) ■ 0: NEXT 
2815 P(1 ) » P: L(H » L: U(l) = 6 

TEST FOR ENO-OF-GAHE CONDI TlfJHS 

2180 IF P >• 33 THEN 3040 ELSE 

PRINT "Tou have so fan peasants left that" 
3000 PRINT "the Nigh King has abolished your Ducal n | 

PRIN': 60T0 30000 
3040 IF L >« If* THEN 3070 ELSE 

PRINT "Tou have so little land left thv.": BOH 3100 
J070 IF U1 > 88 OR U2 > •• THEN 3T0O ELSE 

IF 6 >■ 42' THEN 3130 
J100 PRINT "The peasants tire of uar and starvation": 

PRINT "Tou are deposed": PRINT: UOTU 30000 
3130 IF TZ ) 45 AND KZ » THEN 

PRINT "Tou have reached the age of Mandatory retirenent": 

GOTO 30000 
3170 U1 * 0: 

IF KZ > THEN PRINI "The King denands twice the roya! tax :n the": 
PRIN' "hope of provoking war. Uill you pay I ";: 
60SUB 1330: KZ ■ 2: 
IF VI="N" THEN KZ « -1 

FOOD FOR THE PEASANTS 

3270 PRINT "Grain for food ■ ■;« 

60SUB 1430 : '.' ■ -'.'♦".' -«1')0 > -ViPt'V IOC ' : 

IF V > G THEN GOSUB 1530: GOTO 3270 

IF V/P ' !! AND V'.-6 THEN 

PRINT "Tht pe-isints deeonstrate before the castle": 
PRINT "with sharpened icythes": U1 ■ til*!: 61110 32/0 

6(2) ' -V: 6 « ■< 

-— STARVATION AND UNPEST CALCULATIONS 

XI « V/P: 

IF XI < 13 THEN PRINT "Sone peasants have starved during the winter" 

P(2) ■ -INKP-V.M3): P • P»P(2> 
34»0 XI « X1-14: XI = -X1*<X1<«4) -4*«X1 

U1 « U1 -3«P(2> -2»X1: 

IF Ul > 88 THEN 31O0 I 

IF P<33 THEN 2»80 

PURCHASE OR SALE OF LAND 

3580 C <= CT: XI ■ INT(2«C«FNX3( | ;-5 ) : 

XI « -X1*<XI>*<) -4«(X1^4' 
3440 PRINT "Land to buy at" XI "HL./HA. ' ";: 
GOSUB 1430: 6(3) ■ -V»X1: 
IF -G'J) > G 'HEN GOSUB 1330: GOIO J4«') 
3700 L(2! ■ V: SH! ■ S'3.' ♦ VI 

IF V>0 THEN 4020 ELSE X2 * S(1 >»S(2)«S(3) 
3740 FOR J1Z » 1 TO J: 
XI ■ X1-1: 

PRINT "Land to sell at" XI "HL./HA. ■ ";: 
60SUB 1430: 

IF v>X2 IHEN PRINI "But you only have" X2 "HA. of good land": 
G01C 3840 
3810 6(3) « **I1l 

IF 8(3) <■ 4000 THEN 3870 ELSE 

PRINT "No buyers hive that nuch grain - Ml] !ess" 
3840 NEXT J1Z: PRINT "Buyers have lost interest': 

V « 0: 8(3) ■ 
3B70 L(2) ■ -V 
3880 FOR J1Z » 3 TO 1 STEP -1: 

IF V (• S(J1Z' THEN 4010 ELSE 
V « V-S(J1Z): S'. J1Z) ' 0: 
NEXT JIZ 

' LOOP SHOULD NEVER tXM HtPE 
3160 PRINI "LAND SELLIN6 LOOP ERROR - CONTACT PRUGNAS AUTHOR 
PRINT "ERROR IS NOT TOURS IN ENTERING PROORAN,"! 
PRINT "ANB SEENS TO BE FAULT OF PRU6KANS L0«1C."| STOP 
4010 S(JIZ) » S(JIZ) -V 
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The VIP hobby computer: 
Start programming for only $99. 




$99. 



New! VP 111 
Microcomputer 
Assembled* and tested. 

Features: 

• RCA 1802 Microprocessor. 

• 1 K Bytes static RAM. 
Expandable on-board to 4K. 
Expandable to 32 K Bytes total. 

• 51 2 Byte ROM operating system. 

• CHIP-8 interpretive language or 
machine language programmable. 

• Hexidecimal keypad. 

• Audio tone generator. 

• Single 5-volt operation. 

• Video output to monitor or modulator. 

• Cassette interface— 100 Bytes/sec. 

• Instruction Manual with 5 video game 
listings, schematics, CHIP-8, much more! 

Ideal for low-cost control applications. 
Expandable to full VIP capability with 
VP-114Kit. 

'User need only connect cables (included), a 
5-volt power supply, and speaker 



$ 199. 



New low price! 
The original VIP 
Completely assembled 
and tested. 

All the features of the VP- 1 1 1 plus: 

• A total of 2K Bytes static RAM. 

• Power supply. 

• 8 Bit input port. 

• 8 Bit output port. 

• I/O port connector. 

• System expansion connector. 

• Built-in speaker. 

• Plastic cover. 

Three comprehensive manuals: 

• VIP Instruction Manual— 20 video 
game listings, schematics, much more. 

• VIP User's Guide— operating instruc- 
tions and CHIP-8 for the beginner. 

• RCA 1802 Users Manual (MPM- 
201 B) - complete 1 802 referenceguide. 




COSMAC VIP lets you add 
computer power a board 
at a time. 

With easy-to-buy options, the versatile 
RCA COSMAC VIP means even more 
excitement. More challenges in 
graphics, games and control functions. 
For everyone, from youngster to serious 
hobbyist. 

Built around an RCA COSMAC micro- 
processor, the VIP is easy to program 
and operate. Powerful CHIP-8 inter- 
pretive language gets you into 
programming the first evening. 
Complete documentation provided. 

Send the coupon now .. . 

Complete the coupon below and mail to: 
RCA VIP Customer Service, New 
Holland Avenue. Lancaster, PA 1 7604. 

Or call toll free (800) 233-0094 

to place your Master Charge or VISA 
credit card order. In Pennsylvania, 
call (71 7) 397-7661 , extension 31 79. 



Please send me the RCA COSMAC VIP items indicated 

D VP-111 New low cost Microcomputer 

(See description above) $99 

D VP-114 Expansion Kit lor VP-111— Includes 

3K RAM. I/O Port and connectors . . $ 76 

D VP-711 VIP— The original VIP Microcomputer 

(See description above) $199 

D VP-44 RAM On Board Expansion Kit -Four 
21 14 RAM ICs Expands VP 71 1 
memory to 4K bytes $ 36 

D VP-590 VIP Color Board— Converts VIP to 
color Four background and eight 
foreground colors $ 69 

D VP-595 VIP Simple Sound Board— Provides 
256 programmable frequencies For 
simple music or sound effects 
Includes speaker $ 30 

D VP-550 VIP Super Sound Board— Turns your 
VIP into a music synthesizer 1 Two 
independent sound channels On- 
board tempo control Outputs to 
audio system $ 49 

D VP-551 4-Channel Super Sound— Includes 
VP-576 expander, demo cassette 
and manual Requires VP-550 and 
4K RAM $ 74 

D VP-570 VIP Memory Expansion Board- 
Plug in 4K RAM memory $95 

O VP-580 VIP Auxiliary Keypad -Adds two- 
player interactive capability 16-key 
keypad with cable Connects to 
sockets on VP-590 or VP-585 $20 

D VP-5SS VIP Keypad Interface Board— Inter- 
faces two VP-580 Auxiliary 
KeypadsloVIP $ 15 



D VP-560 VIP EPROM Board— Interfaces two 

2716EPROMstoVIP $ 34 

D VP-S65 VIP EPROM Programmer Board- 
Programs 2716 EPROMs 
With software $ 99 

D VP-575 VIP Expansion Board— Provides 4 
buffered and one unbuffered 
expansion sockets $ 59 

D VP-576 VIP Two-Board Expander-Allows 
use of 2 Accessory Boards in either 
l/Oor Expansion Socket $20 

D VP-601 ASCII Keyboard— 128-character 
ASCII Encoded alphanumeric 
keyboard $ 65 



a VP-611 ASCII/Numeric Keyboard-Same 
as VP-601 plus 16 key numeric 
keypad $ 60 

D VP-620 Cable Connects ASCII keyboards 
toVIP 



VP-700 VIP Tiny BASIC ROM Board-BASIC 
code stored in 4K of ROM 



$ 20 

$39 

VP-710 VIP Game Manual— Listing tor 16 

exciting games $ 10 

VP-720 VIP Game Manual-ll— More exciting 

games (Available 2nd qlr 80) $ 10 

MPM- CDP1802 User Manual (Included 

201B withVP-711) $ 5 

Please send more information — 



Enclosed is $_ 



for items checked plus shipping & handling charge of $3.00 

Add your state and local taxes $ Total enclosed $ 

I enclose D check orD money order or, charge my D VISA/ Bank Amencard 
□ Master Charge 

Credit card account No 



Master Charge Interbank No. 



.Expiration date .. 



Signature (required for credit card orders): 

Name (please type or print): 

Street address: 

State & Zip: 



City: 

Telephone: ( 



)- 



Make checks payable to RCA Corp. Prices and specifications are subject to change 
without notice. 
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40»0 



4170 
41?0 
4220 



4360 
4430 



4900 
4510 



4400 

4»:o 

4460 
4700 

4770 
4130 

4t20 
4»»0 
3040 



31»0 

3240 



3310 



3330 

5380 



3440 




I ■ L»L!2>: 

!Fl') 'HE* 3040 ELSE 

IF IIIKO AND X1'4 THEN 6(3) * ir(8'.3>/2): 

PRINT "The High King appropiatet half your earnings": 
PRINT "at punithnent for selling at such a leu price" 

6 • 6*6(3) 

V«D UITM THE KINS 

IF KZO -2 THEN 4330 ELSE 

PRINT "The King'! amy is about to attack your duchy": 

XI « INT'G/IOO': 

PRINT "3t 109 *L. nek (paviwnt in advance)" 

PRINT "you nave hired" XI "foreign nerrenariet": 

If 8»X1»P>23»» THEN 4220 

PRIN1 "The olaceneat of your head atop the cattle gate'i 

PRINT -tigmfiet that ";: GOTO 3000 

PRINT "Wipe the blood fron the crown - you are now High King'": 

PRINI: PRINT "A nearby nonarchy threatent uar; ";: 

PRINT "hou nany ":PRIHT:PR1NT:PRINT:00T0 32747 

BRAIN PROSUCIION 

PPIN1 "land to plaat ■ ";t GOSUB 1430: 
If V.H THEN OOSUB 1330: QOTU 4350 
IF V>4«P THEN 60SUB 1579: 8010 4330 
8(4) • -2»V: 

If -8(4) > 8 THEN OOSUB 1330: (SOTO 41 
8(8) • Vi E » 8*6(4) 

— UPBATE LAN! TABLES 
FOR II • 1 IB 6: 'J(IX) • 0: NEXT 
FOR J1I » 1 10 4: 

IF V<«S(J1X) THEN 4420 ELSE 

* ■ V-S(JU): U(JU> • S(J1X>: 

S(JH> • 0: 

NEXT J1Z 

LOOP SHOULD NEVER REACH THIS FAR 
PRINT "LANS TABLE UPBATIN8 ERROR - PLEASE CONTACT PROGRAH AUTHOR": 
PRINT "IF ERROR IS N01 A FAULT OF EN1ER1N6 THE PR06RAH, BUI RATHER" 
PRINT "FAULT OF THE PR08RAH LOGIC": STOP 

uuizi ■ v: sum • sum - *i 

S(l) = S(1)*S<2>: S(2) • o 
FOR JU » 3 '0 a: 

S(JtX -2) ■ S(J1Z-2)*S(J1X>: 

SIJ1Z) • 0: 
NEXT J1X 

FOR J1X • 1 TO 3: S(J1X*1) • S1JU*1>«U(J1X>: NEXT: 
S(4) • S<6>*U'6> 

CROP T1ELB ANB LOSSES 

C • PNXZ(2)*3: 

IF INT'YZ/.') « 7 « U THEN PRINT "Seven year locuttt": 

C ■ C/2 

XI • 0: 

FOR J1Z > 1 TO 5: 

XI » X1 * U(J1Z) « (1.2 - .2*J1Z): 
NEXT J1Z: 

IF 6(8!»0 THEN C1 * 0: C ■ 0: 
ELSE CI • I«T((C »(X1/6(8)))t100)/100i C ■ CI 
PRINT "field ■" C "HL./HA.-I 
XI • FNXZ(3>*3: 

IF XI < ♦ THEN 31W ELSE 6(3) » -INK (X1»8)/83)l 
8 • 6*6(3) 

PRINT "Rats lifett the grainery": 
IF P<67 BR KZ»-1 THEN 3W ELSE 
XI • FNXZ(4): 
IF X1> P/30 THEN 51»0 

PRINT "The High King requiret" X1 "peatantt for hit eitatet": 
PRINT "and alaet. Will you tupply the* (Tot) or pay" X1«100: 
PRINT "HI. of grain inttead (No) ' ";: 80SUB 1330: 
IF V»«"N" THEN 8(10) » -100«X1: 8 ■ 8*0(101: 80T0 51»0 
P(3) ■ -Xli P ■ PtP(3) 



3310 
3340 



3370 
35»0 



3440 



5720 
5730 



5»70 



6070 
40?0 
6130 



6250 



6340 



6430 
6440 



6300 



6690 



6670 
6710 



UAR 

IF KX--1 THEN PN1R1 "The High King callt for peatant levies": 4740 

PRINT "and hiret nany foreign nercenariet": KZ • -2i 80TB 6340 
XI « Midi - 1.5»C>: 
XI • -X1»(X1>»2) -2»(X1<2): 

If KZOO OR PO10« OF 17»(l-400)t8 <■ 10400 THEN 3330 67T0 

ELSE PRINT "The High King grout uneaty and «ay" M . , ,- f 7000 
PRINT "be tubtidizlnj uart against you": XI • XI «2: 
X2 • YZ»5: 60TB 3380 
X2 ■ 

X3 • FNXZ(5)i 
IF X3>X1 THEN 6340 ELSE 
PRINT "A nearby Duke threatent uar; 
X2 • INT(X2*8S*18*FNXZ<6>> 
X4 ■ 1.2-01/16: X5 - lffT(P»X4>*13: 
PRINT "Uill you attack firtt t ";: 80SUB 1330: 
IF l/fT THEN 35P0 ELSE 327,7 

IF X2>»X5 THEN 3340 ELSE Ok 

PRINT "Peace negotiations uere tucceitful" 
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7100 
7200 



30900 



P(4) • -Xl-1: X2 « 0: 60TO 5370 

PRINT "Firtt ttnke failed - you need profetsionalt": 

P(4) ■ -X3-X1-2: X2 • X2*3»P(4) 

P » P*P(4)« 

IF X2<1 THEN U1 » U1-2«P(4)-3»P(5>: OOTO 4340 

PRINT "Hou nany nercenariet uill you hire at 40 HL. each • ";: 

60SUB 1430: 

IF V>75 THEN 

PRINT "There are only 75 nercenane- available for hire": 

6010 55?0 
X2 ■ INT(X2»N): X5 • INT(P*X4)*7«V*13: 
X6 ■ X2-4»V-INT(.25«X5): X2 « X3-X2: 
L(3) • IN!(.»«X2): 
if -L(3)?.»7«L THEN 

PRINT "Tou have been overrun and have lott the entire Oukedon": 

8010 4!?0 
XI • L(3) 
FOR J1Z • 1 TO 3: 

X3 • INT(Xt/(4-J1X>>: 

If -X3 <• S(J1ZI 1HEN XS » X3 ELSE X5 ■ -S(JIX) 

S(J1Z) » S(J1Z) ♦ X5: 

X1 • X1-X5: 
NEX1 J1Z 
FBR J1X ■ 4 TO 6: 

IF -XI <> S(J1Z) IHEN X3 > XI ELSE X3 • -S(J1Z) 

S(JIZ) » S(J1Z) » X5: 

XI » X1-X3: 
NEXT J1Z 

IF L(3><3»? THEN 4010 ELSE 

PRINT "Tou have overrun the eneny and annexed hit entire Bukedon": 
6(7) ■ 3513: 6 • 6*8(7): X4 ■ -47: X4 « .35: 
IF KZ>0 THEN 6130 
KZ • 1i 

PRINI "The King feart for hit throne and": 
PRINT "nay be planning direct action": 6010 6130 
IF X2>»0 IHEN 

PRINT "Tou have uon the uar": X4 ■ .67: 

8(7) « INT(1.7»Li3)> : 6 » S«0(/>: 60T0 40»0 
PRINT "Tou have lott the uar": X4 « G(t)/l 
If X6<»» THEN Xi ■ ELSE X6 • INUX6/10) 
X6 ■ -X»«(X4<»P) -P«(X6>P>: P(4) « P(4)-X6: 
P • P-X6: 6(8) - 6',8)*I»T(X4«L(3>>: 
X4 • 404V: 
IF X6 <« 6 IHEN 6(6) • -X6 ELSE 0(6) • -8: 

P(3) • -INT((X6-6)/7)-1: PRINT "There isn't enough grain to 

pay the nercenariet" 
6 ' 8*6(6): 

P(3) ■ -P(3)»(-P(5X»P) *P»(-P(5)>P>: 
P ■ P*P<5>: 
L • 1*1(3): U1 » U1-2»P(4)-3«P(5) 

PLA6UES, BIRTHS, NATURAL DEATHS 

XI • FNXZ17): 

If Xl>3 THEN 4300 ELSE 

IF XIOI THEN 6440 ELSE 

ir B>0 THEN 6300 ELSE 

PRINT "The BLACK PLAGUE hat ttruck the area": 

t • 13: X2 • 3 

P(4) ■ -INKP/X2): P = P*P<4>: 8010 6300 

PRINT "A POX EPIIENIC hat broken out": X2 • XI »5: 

P(6) » -INT(P/X2l: P « P*P(6> 

XI » FNXX(8>*4: 

XI ■ -X1»(P(3)«BI -4.3e(P(3)O0>: P(8) ■ 1NT(P/X1): 

P(7) « INK.3-P/22): P ■ P*P(7)*P(8>: • B-1 

6RAIN HARVEST, CASTLE EXPENSES, KING'S TAX 

8(6) • INT(C>6(8>): 6 ■ 640(8): XI • 0(8)-40O0: 

8(») ■ -6(»mxt<«0) *INT(.1»X1)»(X1>0): 0(»> • 8<»)-120: 

6 • 6*B<») 

IF KX<0 THEN 67»0 ELSE XI • -INT(L/2) 

XI ■ -X1«(KZ<2) -2*X1«(KX>«2): 

IF -X1>8 THEN 

PRINT "Tou have insufficient grain to pay the royal tax": 

60T0 3000 
6(10) • S(I0)*X1: 8 • 6«X1 



UPDATE UNREST COURIER AND CONTINUE 



02 ■ 
DATA 



DATA 
DATA 



INT(U2*.85)*U1: 60TO 2460 

"Peatantt at ttart", "Starvations", "King't levy", 
"Mar casualties", "Looting victim", "Dlteate victint", 
-Natural deaths", "Births" 

"Land at start", "Bought/told", "Fruits of uar" 
"6raia at ttart", "Uted for food", "Land dealt", 
"Seedingt", "Rat losses", "Nercenary hire", 
"Fruitt of uar", "Crop yield", "Cattle expense", 
■Royal tax" 

PRINTiPRINT "Bo you with to try another gane ' ";: 60SUB 1330: 

IF VI""T" THEN 2180 

END ' 



CHESS * BACKGAMMON * MORE! 

T 

NEW MACHINE LANGUAGE GAMES' 

Z-CHESS r °" ,, ' L "' t " 

Play the classic cami or CHESS using thc 
TRS-m graphics Seven levels of difficulty 
(up to six levels of "look ahead") PROVIDE 
A challenging game for all. Alpha-Beta 
PRUNING AND MOVE SORTING ARE EMPLOYED TO 
KEEP RESPONSE TIMES TO A MINIMUM. SETUP 
MODE ALLOWS THC BOARD TO SE ARRANGED AS 

desired. Plays all moves - including CAST- 
LING and EN PASSANT captures. Numbered 

SOU A RES SIMPLIFY MOVE INPUT. POSSIBLY THE 
FASTEST GOOD STRATEGY CHESS GAME AVAILABLE! 
« IT.Bl 





BACK-40 



A SUPERIOR OPPONENT WHICH MAKES EXTENSIVE 
USE OF THE TRS-M GRAPHICS TO DISPLAY A 
REGULATION STYLE BACKGAMMON BOARD 
OF UNMIVALEO QUALITY AND CLARITY - INCLUDING 

thc dice! BACK « DOUBLES if it stands a 

GOOD CHANCE OF WINNING - WHICH IT USUALLY 

does! Every feature of a regulation BACK- 
gammon match is included - even keeps 
score! 

*l«.tS 



OR. CHIPS 

A FASCINATING PROGRAM BASED ON THE FAMOUS 

"DOCTOR" ano "ELIZA"frograms. Simply 
"TALK "(er. "TYPE") to yowb computer - 

DR. CHIPS WILL ANALYZE YOUR SENTENCES AND 

'TALK" back to vou — immediately? Although 
DR. CHIPS' RESPONSES should not be taken 
SERIOUSLY. hc is the ULTIMATE COMPUTER 
introduction for the family and friends - 
ano a super "conversationalist" at parties! 
till) 



IMMEDIATE 

SHIPMENT BY 

FIRST CLASS 

MAIL 

TEXAS RESIDENTS 

ADO »% 

ORDER BY MAIL Oft 

-—-. PHONE ^ 



Tho Soft wane Association 

P. O. BOX UNI HOUSTON. TEXAS TTOSfl PHONC »l» I U2-OM 
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Apple-Doc 

By Roger Wagner 

An Aid to thc Development 
and Documentation of Applesoft Programs 

This 3 program set is a must to anyone writing or using programs 
in Applesoft! It not only provides valuable info, on each of your 
programs, but allows you to change any element throughout the 
listing almost as easily as you would change a single line!! 

With Apple Doc you can produce a list of every variable in your 
program and the lines each is used on, each line called by a GOTO, 
GOSUB, etc., in fact, every occurence of almost anything! 

You can rename variables, change constants and referenced line 
tfs, or do local or global replacement editing on your listing. 

In fact, we guarantee that after purchase, if you don't fed 
APPLE DOC is one of the most valuable programs in your library 
we will even refund your money! (Upon return of product.) 

Unheard of? Yes! But that's how good APPLE DOC really is! 

That's not all!! Send for free info, or visit your nearest Apple 
dealer. 

Only $19.95 Please specify diskette or tape. 

(Calif, residents add 6% Sale* Tax) 

Available from your local computer store or: 

Southwestern Data Systems 
P.O. Box 582-C2 
Santee, CA 92071 
(714) 562-3670 

(Dealer inquiries invited) 
CIRCLE 191 ON READER SERVICE CARD 



DATA TERMINAL EQUIPMENT — FROM MICROMAIL 




SOROC IQ 120 $ 740.°° 

• RS 232C, upper/lower case, full 
ASCII 

• Numeric keypad, protected fields 

• Cursor keys plus addressable cur- 
sor 

• Auxiliary extension port 



LA34 DECwriter IV 

*999. 00 



• Upper/lower case, 9x7 dot matrix 

• 10. 12, 13.2, 16.5 characters/inch 

• 2, 3, 4, 6, 8 or 12 lines/inch 

• 22 "W x 7"H x 15V»"D, 25 lbs. 

• 110 or 300 baud, RS 232C serial 
ASCII 

• Friction feed, paper width to 15" 



SOROC IQ 140 $ 1 .130. 00 

• RS 232C and 20mA current loop 

• Extensive editing features 

• 25th line terminal status display 

• 16 function keys (32 with shift) 



New 
from DIABLO 

DIABL0 1640 $ 2.920. 00 
Receive-only $ 2.525. 00 

High-quality daisywheel printing at 
45 cps. 

DIABLO 1650 ' 3.070. 00 
Receive-only * 2.675.°° 

Metal daisywheel printing at 40 cps. 



T.I. 810 printer $1,599.°° 

• Includes upper/lower case 

• 150 characters per second 

• RS 232C serial interface 

• Adjustable forms tractor 




NEC Spin writer 

Call or write for prices 




To Order: Send certified check (personal or company checks require 
two weeks to clear) including handling* and 6% sales tax if delivered 
within California. 

'Handling: Less than $2,000. add 2%: over $2,000, add 1%. Everything 
shipped freight collect in factory cartons with manufacturer's warranty. 



i-MJCRQMflJL, 



I MICROMAIL • BOX 3297 • SANTA ANA. CA 927( 
(714) 731-4338 



FEBRUARY 1980 



111 



CIRCLE 168 ON READER SERVICE CARD 




In November 1977, Creative Com- 
puting sponsored a contest to 
write a computer version of Black 
Box. The winning entry (In Micro- 
soft Basic) was submitted by Jeff 
Kenton and appeared In the May I 
June 1978 Issue. Now Mark Zim- 



merman has gone one step further 
by adding scoring and graphics in 
this version for the PET. Those 
readers with other computers can 
convert the program, although 
you'll have to find some substitute 
graphics symbols. — DHA 



BLACKBOX 
FOR THE PET 

Mark Zimmerman 



Blackbox is a fascinating new 
game which puts a special twist to the 
deductive/inductive logic features of 
Invicta's Mastermind, and it stands a 
good chance to become as popular. 
I've written a program for a human to 
play Blackbox, using the 8K Commo- 
dore PET microcomputer system. The 
program is fairly large (almost 7K) but 
is written In "structured" form includ- 
ing extensive comments, and so it's 
not hard to read and understand. It 
makes use of some of the graphics 
capabilities of the PET, but only as 
subroutines which should not be dif- 
ficult to modify for use on other 
machines which can interpret BASIC. 
Here, I will not comment further on 
the program; I will only give a short 
outline of the rules of Blackbox for 
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CREATIVE COMPUTING 



You're in command in SPACE WAR! Destroy your 
opponent's ship by forcing him to collide with the sun or to 
explode upon re-entry from hyperspace. or challenge him 
face to face with missile fire You're in command of the speed 
and direction of your ship. You control the timing of your 
missiles. You select the game mode from five options, 
including Reverse Gravity, and the battle begins. Accel- 
erate to place your shots--and escape into hyperspace before 
your opponent comes within range But be wary, he (or she!) 
may circle out of sight and reappear on the opposite side of 
the galaxy! (This is the classic MIT game redesigned 
especially for the Apple.) 






*m. 



SUPER IMUflDER 



• Features superb high resolution graphics, nail-biting tension and 
hilarious antics by the moon creatures! 

• Self-running "attract mode" of operation for easy learning and 
demonstrating of the game. 

• As good in every way as the famous Invaders arcade game. 



High speed action 



Sound effects! 



SCOF:E>e0<.00 



Hi-sccec-oeoeo 



Fifty-five aliens advance and shower you with lethal writhing 
electric worms. As you pick off the aliens, one-by-one. they 
quicken their descent. They whiz across the screen wearing away 
your parapets, your only defense, coming closer and closer to your 
level Super Invader is the original invader game, with original 
moon creatures and action twice as fast as any other invader game 
on the market 

Super Invader is available for only $19 95 on cassette (CS-4006) 
for a 32K Apple II Space War is $14.95 on cassette (CS-4009) for a 
16K Apple II Space War and Super Invader are on one disk 
(CS-4508) for a 48K Apple II for only $24.95 

Send payment plus $1 00 shipping and handling to Creative 
Computing Software. P.O Box 789-M, Mornstown. NJ 07960 NJ 
residents add $1 00 sales tax. Bankcard orders may be called in toll 
free to 800/631 -81 12 In NJ call 201/540-0445 



serasafcioreal 
software 



GPeatlve 

GompattRg 

software 



For a FREE Sensational Software Catalog ol over 400 programs lor eight popular systems circle reader service #207 



Blackbox, cont'd... 

readers who are unfamiliar with the 
game. (I recommend that you buy a 
set for more information. The original 
game is manufactured by Wadding- 
tons in England. It is made and distri- 
buted by Parker Brothers in the USA.) 

The Blackbox board is an 8 x 8 
square array, with the perimeter 
edges numbered from 1 to 32. Five 
balls are placed on the board (ran- 
domly, by the computer, in the 
BLACKBOX program) but are invis- 
ible to the player. The player's goal is 
to deduce the position of the five balls 
with a minimum amount of informa- 
tion. 

The player derives information by 
"probing" the board. He or she 
chooses one of the 32 perimeter 
edges and "sends in a probe" from 
that edge. A probe may be either 
absorbed by something it encounters 
within the board, or it may emerge 
from the board at one of the perimeter 
edges. 

The precise rules for now probes 
move within the board are quite 
simple and logical. They are: 

1. A probe moves in a straight line 
(like a chess rook) unless it 
comes within one square of a 
hidden ball. 

2. A probe which runs directly 
into a ball is absorbed. 

3. When a probe encounters a ball 
in the probe's left-front square, 
the probe is deflected 90* to 
the right; when a probe en- 
counters a ball in its right-front 
square, it is deflected 90° to 
the left. 

4. A probe which is deflected be- 
fore it gets onto the board is 
reflected back onto the edge 
which the probe was entering 
from. 

5. A probe which encounters 
balls in both its right-front and 
left-front squares is reflected ; 
it reverses its motion (180*). 

The examples shown in figures 1 
and 2 should make these rules clear. 
Note that absorption dominates over 
reflection/deflection; a ball which 
would be both absorbed (rule 2) and 
deflected or reflected (rules 3-5) is ab- 
sorbed. 

If the player could see the path 
that the probe follows within the 8x8 
board, it would be trivial for him or her 
to determine where the five balls are 
hidden. But the player isn't allowed to 
watch! All the information that the 
player is given is the edge which the 
probe emerges from, or the fact that 
the probe was absorbed somewhere 
within the board. A probe which 



apparently flies straight through the 
board may actually have been de- 
flected several times along its way! 
This lack of complete information 
about what went on within the board 
is the reason that the game is called 
"Blackbox." 

To play, using the BLACKBOX 
program, the player RUNs it to initial- 
ize variables and place the five balls 
randomly within the array. The player 
then enters any edge number, from 1 
to 32. The computer sends in a probe 
from that edge, and reports the result 
in symbolic form. A "checkerboard" 
graphics symbol is used to replace 
the edge number if the probe was 
absorbed; a "diamond" symbol indi- 
cates that the probe was reflected 
back out the same edge that it was 
sent in (mnemonic: diamonds reflect 
light); and if the probe emerges at a 
different edge, the same graphics 
symbol is placed over the edge 
numbers of both the input and the 
output edges. (The Blackbox deflec- 
tion rules have been designed so that 
a probe's motion is "time-reversable" 
—that is, if a probe travels from edge 
number 2 to exit at edge number 18, 
then a probe sent in at edge 18 must 
exit at edge number 2). 

The player can, at any time, put 
guesses into the computer as to 
where one or more of the balls are 
hidden. For convenience in playing 
the game, the player's guesses are 
displayed on the screen, whether they 
are correct or not. Guesses are 
entered by typing the column-row 
coordinates of where a ball is believed 
to be: columns are lettered from A to 
H, and rows are numbered by the left- 
hand edge numbers, 1 to 8. (So, it's a 
lot like algebraic chess notation; 
after playing a few games, the coordi- 
nates become instinctive and the 
labels along the edges are hardly 
necessary.) If a guess needs to be 
changed, typing the erroneous ball's 
coordinates in again removes it. 

When the player is satisfied that 
his or her guesses about the hidden 
balls' positions are complete and 
correct, the player types "Q" to quit 
probing and end that game. The 
computer then displays the actual 
position of the balls and adds up the 
player's score. As in Mastermind, the 
object is to deduce the hidden infor- 
mation .in a minimum number of 
guesses. For each ball that the player 
fails to guess correctly, there is a 
penalty of five points, and for each 
symbol which appears around the 
edge of the board, the penalty is one 
point. The computer keeps a running 
total of the games played in each 
session and displays the player's 



average point score. (My average is 
usually about 17, but I'm not very 
good.) If you quit without making any 
guesses, you get all five balls wrong 
(25 points) but are not charged for any 
information received (symbols 
around board edges); if you're 
psychic and can guess the ball's lo- 
cations without asking any ques- 
tions, you might achieve a perfect 
score of zero! 

As set up at present, the BLACK- 
BOX program takes up to a second to 
calculate the path of a probe through 
the board. Omitting many of the 
REMark statements and making the 
program more efficient might speed 
up this response time, but at the cost 
of making the program very hard to 
read and understand. If the fact that 
some responses take longer than 
others bothers you (it gives a clue 
about how far a probe travels before 
absorption or emergence), you can 
easily add a time delay (using the 
computer's internal clock). I haven't 
bothered to. 

BLACKBOX is a fascinating 
game— try it! □ 

Figure 1 
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Sample "Blackbox" position. Balls are 
marked as "•" symbols. A probe sent In at edge 
5 Is reflected back out that same edge. A probe 
from 13 is absorbed; a probe from 12 is 
deflected to emerge at edge 1 8. A probe sent in 
at 2 is deflected twice to exit at 3 : a probe from 
23 is deflected to its doom, absorption in the 
middle of the board. (None of these paths are 
visible to the player.) 

Figure 2 
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Another "Blackbox*" internal configura- 
tion, illustrating rules for probes' motions. A 
probe sent in at 2 is deflected four times to 
emerge apparently undetected at 23. Probes 
sent in at 1 , 8, 9, 11,12, 14, 16, 17, 24, 27, 29, 
and 30 (for example) are absorbed ; probes from 
7, 10, 15, 18, 26, 28, and 31 (for example) are 
reflected, since they would have been deflected 
before getting onto the board. A probe at 20 
simply emerges at 5. 
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CREATIVE COMPUTING 



OSI OS! 

SOFTWARE 

FOR 

OHIO SCIENTIFIC 

Over SO programs for C1, C2, C4 & Superboard, on Up* and disk. All 

come with listings and compete documentation. 

GAMES - 4K - Tape UTILITIES 

C1P CURSOR CONTROL $9.95 
gives real backspace, one key 
screen clear, and midline editing 
RENUMBERER S.9S 

SUPERUTILITY 12.95 

Has Renumberer, Variable table 
maker and Search 
BUSINESS 

8MALL BUSINESS ANALYSIS 15.95 
Does profit and loss, quick ratio, 
breakeven analysis and more. 13 
pages of documentation. 
STOCK PORTFOLIO 5.95 

Keeps track of your Investments 



CHESS FOR OSI - 




specify system 


$19.95 


STARFIQHTER 


5.95 


Real time space war. 




SEAWOLFE 


5.95 


Floating mines, three 




target ships, etc. 




LUNAR LANDER 


5.95 


With full graphica 




TEN TANK BLITZ 


9.95 


A sophisticated real time 




tank game. 




8K GAMES 




BACKGAMMON 


9.95 


BLACKJACK 


6.95 


Plays all Vegas rules 




Add $1.00 each for Color/ Sound 



Our $1.00 catalog has free game 
and utility listings, programming 
hints and a lot of PEEKs and 
POKEs and other stuff that OSI 
forgot to mention - and a lot more 
programs for sale. 



DISKS 5" COLOR/SOUND $29.95 
DISK 1. STARFIQHTER. ROBO- 
TANK, SEA WOLFE. BOMBER. 
TEN TANK BLITZ 
DISK 2 BREAK THROUGH. LUNAR 
LANDER, ALIEN INVADER. KILL- 
ERROBOTS, SLASHBALL 



AARDVARK 
1690 Bolton, Walled Lake, Michigan 48088 • (313) 624-6318 





AJA INTEGRATED BUSINESS PACKAGE FOR YOUR COMPUTER 
ONLY < 



YOU CAN PAY A LOT MORE BUT WE DON'T THINK YOU HILL 
CET MUCH MORE THAN THIS: 

ACCOUNTS RECEIVABLE 

ACCOUNTS PAYABLE 

GENERAL LEDGER 

PAYROLL 

INVENTORY WITH SALES ANALYSIS 

LETTER WRITER 

BUSINESS STATISTICS 
THIS SYSTEM HAS BEEN riELD TESTED AND IS IN USE 
TODAY. THIS BASIC SYSTEM WILL SATISFY YOUR HEED 
FOR BUSINESS PROCESSING ON YOUR MICRO. ALL SYSTEMS 
ARE PROVIDED WITH SOURCE CODE LOADED ON DISKETTE WITH 
OPERATING INSTRUCTIONS AND ART READY TO RUN. THESE 
ARE FULL BLOWN SYSTEMS AND ARE FULLY SUPPORTED BY 
OUR FULL TIME PROGRAMMING STAFF. 

ORDER BY PHONE OR CALL OUR STORE FOR AN APPOINTMENT 

FOR DEMONSTRATION OF ANY OF THESE SYSTEMS. BANKAMERICARD 

AND HASTERCHARGE WELCOME. STORE HOURS 11-7 DAILY. 

SEND FOR OUR FREE SOFTWARE CATALOG. CALL US COHCERHIHG 
YOUR EQUIPMENT NEEDS HE CAN BEAT MOST STORES PRICES ON 
EQUIPMENT BECAUSE HE DISCOUNT. CALL US FOR A QUOTE. 

TRS-80 USERS 
HAVE YOU SEEN OUR NEH HORDP II PACKAGE THAT INCORPORATES 
A COMPLETE MAILING LIST CONCEPT HITH YOUR WORD PROCESSING 
NEEDS. SEND FOR OUR CATALOG. NOTE: UPGRADES AVAILABLE 
FOR PERSONS ALREADY USING OUR HORDP II SYSTEM. 



SOFTWARE 



CIRCLE 103 ON READER SERVICE CARD 



€L£CT«ONK OAMtS • TOTS • SCI-fl • HOCUS • MIC«OCOr*UTE» SOTTWME 

CIRCLE 106 ON READER SERVICE CARD 
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TUS:§9 



"lE^fj SYSTEM 



The world's most popular microcomputer, with 16K of 
memory and Level 1 1 basic for only $750, complete with 
full SO day Radio Shack warranty. We accept check, 
money orderorphone orders with Visa or MasterCharge. 
(Shipping costs added to charge orders). 
Disk drives, printers, 
peripherals, software 
and games . . . you 
name H, we've got it 
(Both Radio Shack & 
other brands). Write 
or call for our 
complete price list. 




ELECTRONICS MART 



AUTHORIZED 
DEALERSHIP 



Radio /hack 






CIRCLE 114 ON READER SERVICE CARD 



32 E.MainStreet* Milan Michigan48160e>(313)439-1400 
CIRCLE 117 ON READER SERVICE CARD 



Blackbox, 


cont'd... 


■> E7 




SSSM.M 




4 

6 

8 


i 


■■■■■■■ 
■■■■■■■ 
■■■■■■■ 
■■■■■■■ 
■■■ 


24 

♦-REFLECTED 

( B-ABS0R8ED 

R-REFRESH SCREEN 

0-OUIT GAME 
28 

XM-PUT, TAKE BALL 
♦ N 
COL I - 

•-SEND PROBE IN 
■ EDGE CELL » 
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Sf^rVga 

« H AVERAGE- 1 



♦-REFLECTED 



R-REFRESH SCREEN 

O-OUIT GAME 

XH-PUT/TAKE BALL 
AT ROH * , 
COLUMN X 



1 DEF FNS<I> -33010*30* I*.:* J REM POINT TO SCREEN ADDRESS 

10 REM BLACK BOX BV ZIMMERMANN, 1 378 

20 DIM §<7»7>»0<4»l>.HOl»l) 

40 SV*-"» .•X*».<- +^'» ■. l- k .O" BL*-" 

60 INPUT "INSTRUCTIONS"'", A* IF LEFT*xA», 1 '-"V" THEN GOSUB 9000 

100 FOR K-0 TO 4 G<.K,0' — 1 NEXT K SV-0 

140 OOSUB 1000 REM PRINTBOARB 

180 GOSUB £000 REM FILLBOHRD 

200 PRINT "»'.BL*, "*", INPUT A* PRINT Bl.*."T 

260 IF A«-"R" THEN PRINT "3"; OOSUB 3000 GOTO 200 REN REFRESH 

300 IF <.VHL<A*.>:>0.> AND •. VAL^A*> <33 ■ THEN OOSUB 4600 GOTO 200 REM MOVE 

340 IF A»-"Q" GOTO 6*0 REM SCORE 

380 FI-FISCtLEFT*>.li#,l^> B-VAL •-RIGHT* \fl* , 1 

420 IF (A>«4) AND <A<73' AND ■ t O • AMD ■ h :? ■ THEM GOSUB 7000 GOTO 200 REM BALL 

460 PRINT "HUH?" GOTO 200 

600 SC-N GA-GA-M IF N-0 GOTO 6S0 

620 FOR K-0 TO N-l IF hND <M<I 1 • THEN SC -SC ♦ 1 

640 NEXT K 

680 FOR K-0 TO 4 IF G>.K.0.> — 1 THEN SC-SC+5 GOTO ■ 

720 IF 10<l<t(Ki*>>0<K/l>» THEN SC-SC+5 

300 NEXT K TT-TT+SC 

840 PRINT "»',TAB^20>, "SCORE-" , SC PRINT TAB' 20 • AFTER" . GA, "GAMES" 

880 PRINT TAB<20>. "AVERAGE-", TT.-6A 

300 FOR 1-0 TO 7 FOR J^0 TO 7 

910 IF B<I-J>THEN X-FHSv I j POKE X, 10<S POKE X* 1,123 POKE :>40 1-4 POKE X+41,126 

320 6<I.J.>-0 NEXT J NEXT I INPUT "^LAV AGAIN", At 

940 IF LEFT*<A#, 1>0"V" THEN END 

360 N-0 GOTO 100 

1000 REM PRINTBOARB 
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10S0 PRINT 
1070 PRINT 
1090 PRINT 
1110 PRINT 
1130 PRINT 
1150 PRINT 
1170 PRINT 
1190 PRINT 
1210 PRINT 
1230 PRINT 
1250 PRINT 
1270 PRINT 
1290 PRINT 
1310 PRINT 
1330 PRINT 
1350 PRINT 
1370 PRINT 
139© PRINT 
1410 PRINT 
1430 PRINT 
1450 PRINT 
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st-ABSORBED 

R-REFPESH SCREEN 

■P "QUIT GAME 

, ;»-PUT. Tmi E BALL 
h F-HW • 
COLUMN . 

•-SEND PROBE II 
AT EDGE C£LL » PRIM 







"" 2 GAMES 
AVERAGE- 18 
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■ RBED 
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■ KMLL 
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1111111 

9 12 3 4 5 6*' RETURN 
2000 REM FILLBOARD 
2040 Z-RND(-TI; REM RANDOMIZE 
2080 FOR K-0 TO 4 

2120 I»INKS»RNlKl ' ' J-Ir.7 ■ MftNDl 1 • . 
2160 IF BvI,J) GOTO 2120 
2200 B<I.J>al-NEXT K RETURN 
3000 REM REFRESH SCREEN 

3040 GOSUB 1000 SV-0 REM PRINTBOARB * RESET S i'MBOL COUNTER 
3080 IF N-0 GOTO 32M REM SKIP IF NO MOVES 

3120 FOR K-0 TO N-l lD*r: =M' I . 1 • GOSUB 6000 -EM SHOW MOVES 

3200 FOR K-0 TO 4 I "0 K • O > IF I—I G0TG3400 REM SKIP If BALL NOT OUT 
3240 J-GtK.l' >:-FNS' I • POKE : .• S5 POM '74 POKE :>4i.7S 

3400 NEXT K RETURN 
4000 REM MOVE ' 

4040 V-1NT< CVRL<ft*>*7>, S' ON V GOSUB 4900,4320 4340,4960 PEM GET ::.',' FOR' MOVE 
4080 M<.N,0;-VAL' A* ■ 

4100 GOSUB 5500 REM FIND LCR 'WHICH BALL WIlL ENCOUNTER) 
4140 IF C THEN V-0 GOTO 5000 REM ABSORBED 
4160 IF L OR R GOTO 4440 REM REFLECTED ON lirtv Ir* 
4190 ON V GOSUB 5420,5440-546(5,5480 REM MOVE IT ONTO BOARD 
4200 GOSUB 5500 REM GET L,L R 
4220 IF C THEN V=0 GOTO 5G0O REM ABSORBED 
4240 IF L AND R THEN GOSUB 5100 GOTO 4;«0 RCM REFLECTED 
4260 IF L THEN GOSUB 5200 GOTO 4iO0 REM BOUNCE PIGHT 
4280 IF R THEN GOSUB 5300 REM BOUNCE LEFT 

4300 GOSUB 4700 IF GOTO 4500 REM 0U1T IF HEADING OFF BOARD 
4340 ON V GOSUB 5420, 5440 . 5460 . 5480 REM MOVE IT' 
4380 GOSUB 470© IF Q GOTO 450O REM iXlIT IF GOItiG OFF Mull TOO 
4400 GOTO 4200 REM MOVE AGAIN.... 
4440 V-V-2 IF VC1 THEN V»V*4 
4500 IF V*2 THEN M'N-1 -J2-V GOTO 4600 
4520 IF V-3 THEN M'N-1 >-\*\ GOTO 4600 
4540 IF V-4 THEN M<N- 1 >-V*9 GOTO 4600 
4560 IF V-l THEN MvN, 1 '-24-X 

4600 ID-M<.N,0.> 0D-M<N,1' GOSUB 6000 N-N->-l RETURN REM MOVE MADE t RECORDED! 
4700 O">.<X»0> AMD ■■.'--■ OR i V-0' AND 
4720 0-0 OR <<X»7) AND V»D AMD .'-1'. 

4740 RETURN REM IF GOI..G OFF BOAF D 
4880 REM 4900-4360 ARE SUBS TO t I OR MOVE 

4900 X-VALvA*'-l V— 1 RETURN 
4920 X-8 V-VAHA*'-9 RETURN 
4940 X-24-VAL<.A«) V»8 RETURN 
4960 X— I V»32-VAL'.A#. RETURN 
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Blackbox, cont'd... 
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.3.2 POKE Pi. 30 



"ASCvMID*tSV», SV, 1 >>-12& 



5000 rem absorbed 

5020 M<N.l>-0 OD-0 IIi-M-.hC' GOSUB 6000 H«ll»l 

5100 REM REFLECT 

5120 V-V-»2 IF V>4 THEN V-V-4 

5140 RETURN 

5200 REM BOUNCE RIGHT 

5220 V-V-l IF V-0 THEN 

5240 RETURN 

5300 REM BOUNCE LEFT 

5320 V--V+1 IF V-3 THEN V«l 

5340 RETURN 

5400 REM 5420-5480 MOVE BALL 

5420 V-V-M RETURN 

5440 X-X-l RE1 

5460 V-V-l RETURN 

5480 X»X*1 RETURN 

5500 REM L . C . h 

5520 ON V GOTO 5600.5700,5600.5.^00 

5600 C-B«.X, V-M ■ IF x-0 THEM L-0 GOTO 5640 

5620 L'KX-I »V*1 ■ 

5640 IF X-7 THEN R-0 RETURN 

5660 P-B^X+1 , V*l • RETURN 

5700 C-BCX-l.V; IF V-0 THEN L~0 GOTO 5740 

5720 L-BCX-l.V-l; 

5740 IF V-7 THEN R-0 RETURN 

5760 R-BCX-l-V*!; RETURN 

5800 C»i<X,V-lP IF X^7 THEN L-0 GOTO 5640 

5820 L-B(X*1,V-1.> 

5840 IF X-0 THEN R-0 RETURN 

5860 R-B<X-1.V-1> RETURN 

59O0 C-B<X*1.V.< IF V-7 THEN L-0 GOTO 5340 

5920 L»S<X*1,V*1> 

5940 IF V-0 THEN R-0 RETURN 

5960 R-B<X+1,V-1j RETURN 

6000 REM PUT SVMBOLS SOWN GIVEN IB.OD.SV 

6040 if on :: O GOTO 6100 

6080 FIB-ID GOSUB 6600 POKE PI, 32 FOKE Pi 

RETURN REM ABSORBED 
6100 IF OD:>ID GOTO 6200 
6140 AD- ID GOSUB 6600 POKE PI 

RETURN REM REFLECTED 
6200 AD-ID GOSUB 6600 JV-SV+1 
6240 POKE PI, 32 FOKE Pi • S 
6280 AD-OD GOSUB 6690 POKE PI. 32 FOKE Pi. S RETURN 

REN SAME SVMBOL BOTH PLACES 
6600 REM LOCATE CAPTION COORDINATES GIVEN AD-1 TO 32 
6640 ON (INTCAD+7>.'8^ GOTO 6700 . 6740. 6780 ■ 6620 
6680 STOP REM ERROR TRAP 
6700 P1-32967*80*AD P2-PI-U RETURN 
6740 P1-33713*2*AD Pi-Pl-40 RETURN 
6780 Pl-34938-S0*AD Pi'-Pl-l RETURN 
6820 P 1-32955-2*^0 Pi-Pl*40 RETURN 
7000 REM PUT BALL DOWN OR FICK UF 
7040 J-A-65 I-B-l 0-0 
7080 FOR K-0 TO 4 

7120 IF <G<K.0)<>I>OR<.G'.K. 1 ) ■:: }> GOTO 7160 
7140 X"FNS<I> POKE X. 79 FOKE X-1.30 POKE X*40. 76 

POKE X»41. 122 
7150 Q-l G<K.0.> — 1 K-4 

7160 NEXT K IF THEN RETURN REM REMOVED A BALL 
7200 FOR K»0 TO 4 
7240 IF G<K,0)O-l GOTO 7280 

7260 X«FNS<I> POKE X, 85 POKE X-M.73 POKE X*40,74 POKE X-41.75 
7270 OCK.0>-I G<K.1>»J K-4 Q-l 

7280 NEXT K IF a THEN RETURN REM PLACED A BALL 
7320 PRINT "LIST FULL. SORRV" RETURN 
9000 REM INSTRUCTIONS 

9040 PRINT ".II WILL HIDE 5 BALLS WITHIN AN 8X8 BOX. 
9060 PRINT "VOU MUST DEDUCE THEIR LOCATIONS BV 
90A0 PRINT "PROBING FROM THE SIDES. TVPE A NUMBER 
9100 PRINT "TO SEND IN A PROBE. IF THE PROBE HITS 
9120 PRINT "A BALL HEAD-ON. IT I =. ABSORBED, IF IT 
9140 PRINT "HITS A GLANCING BLOW, IT IS DEFLECTED 
9160 PRINT "30 DEGREES. T*IO DEFLECTIONS OR A 
9180 PRINT "DEFLECTION BEFORE GETTiNG ON THE BOARD 
9200 PRINT "MAKE A REFLECTION. 

9220 PRINT "I MARK ABSORFTIONS BV *t. REFLECTIONS 
9240 PRINT "BV ♦. AND DEFLECTIONS BV PUTTING THE 
9460 PRINT "SAME SVMBOL BV BOTH INPUT « OUTPUT 
9480 PRINT "CELLS. ALL THIS WILL BECOME CLEARER 
9500 PRINT "WITH SOME SAMPLE GAMES. 
9520 PRINT "TVPE A LETTER-NUMBER PAIR TO PLACE A 
9540 PRINT "BALL ON THE SCREEN <EXAMPLES Al . G4 , 
9560 PRINT "H7. ETC.). TVPE R TO REFRESH THE 
9600 PRINT "SCREEN DISPLAV. AND O TO QUIT GUESSING 
9620 PRINT "AND SEE THE ACTUAL SET-UP AND VOUR 
9640 PRINT "SCORE. VOU GET 5 POINTS FOR EACH BALL 
9660 PRINT "THAT VOU MISSED GUESSING. AND 1 POINT 
9680 PRINT "FOR EACH SVMBOL VOU GOT AROUND THE EDGE 
9700 PRINT "OF THE SCREEN. TRV TO MINIMIZE VOUR 
9740 PRINT "SCORE. GOOD LUCK! HIT A KEV TO FLAY" A#-"" 
9760 GET A* IF A*-"" GOTO 9760 
9780 RETURN 



YOU AND YOUR APPLE 



COMPU-READ 



Increase your reading speed and maintain a high level of 
comprehension, at your own pace. Four separate programs in 
this package permit you to establish your own level of chal- 
lenge. The computer adjusts its speed to your responses. As 
you progress through the 4 programs, the computer confirms 
your correct answers, and provides corrections for wrong 
answers. The 4 programs are "Character Identification", "Syn- 
onyms and Antonyms", "Sentence Comprehension", and 
"High Speed Word Recognition". Two file builders are includ- 
ed for Synonyms and antonyms, and a word record, so you can 
add your own vocabulary. COMPU-READ is fun and easy to 
use . . . ideal for people with far too much to read, and for 
students who want to stay at the top (or get there). Requires 
an Apple with Disk and 32K with ROM, or 48K without ROM. 
On Disk $24.95 

EDU-PAK I 

Get COMPU-READ and two more programs in one econ- 
omy diskette. PERCEPTIONS: 3 games to challenge your vis- 
ual skills, test your powers of observation, and pit your visual 
memory against the computer. STATISTICS: perform statisti- 
cal calculations ordinarily found in FORTRAN $39.95 



II 



Our original SPACE program has a successor. SPACE II is 
compatible with SPACE I and includes two programs. 
PSYCHODELIA: Your character is on a planet in which drugs 
are used to explore his inner state of mind. Experience both 
the risks and benefits of using psychodelic drugs in a safe com- 
puter environment. SHAMAN: Your character is marooned 
on a planet in which various religious cults predominate. You 
must work your way up from Witch Doctor to High Priest thru 
a variety of religious experiences. Includes both programs plus 
a game to create your own characters. On Disk $24.95 

Available at your local Computer Store 

EOU-WARE SERVICES. INC. (213) 346-6783 

22035 Burbank Blvd., Suite 223 "Woodland Hills, Ca 91367 

■ ORDER YOURS TODAY!-- 



QTY. 


NAME 


PRICE 


TOTAL 




COMPU-READ 


$24.95 






EDU-PAK 1 


34.95 






SPACE II 


24.95 




Sub Total 




Calif. Res. add 6% Sales tax: 




Add Shipping & Handling 


$1.00 


Check enclosed for TOTAL 





Ship to: D Send free catalog to 

Name 

Street 

City 

State 




Zip. 



FEBRUARY 1980 
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EDU WARE SERVICES. INC. 

22035 Burbank Blvd., Suite 223 • Woodland Hills, Ca 91367 i 

] 
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CIRCLE 138 ON READER SERVICE CARD 



U^KM 



^Sensational 

^Software 



Sorcerer Software 
Graphics Games (CS-5001) Six Exciting 
graphics games. Bombard an atom with 
protons and neutrons In Nuclear Reaction. 
Calculate the trajectory on your Pie Lob in 
this comical game: LEM Is a real time 
lunar landing game and Dodgem la a 
checker-type strategy game. Bonus: an 
intriguing graphics demonstrator, Bounce. 



Smart Alec (CS-5002) Are you a genius? 
Test your expertise in 7 catagories: Sci- 
ence, Geography, History, Computers, T.V. 
and Movies, English, and Trivia. Over 200 
questions in all. (8K) $7.95 



Challenger Software 
Graphics Games-3 (CS-6001) Five action 
packed graphics games. In Tank Attack 
you maneuver around trees, houses, and 
airplanes. Dodgem and Free lor All are 
two-player challenges with absorbing 
playing strategies. Hidden Maze is 
revealed to you only as you run into it. 
(8K) $7.95 



^^^r m M Sports Gan 



Apple II Software 
Space Games- (CS-4001) Three challeng- 
ing galactic games. Get the TIE fighters in 
your blaster sights and zap them with 
your lasers in Star Wars. In Rocket Pilot 
you're in control of launching and landing 
your craft; an advanced real-time game. 
Repel the Saucer Invasion with your mis- 
siles (high resolution graphics) Bonus: 
Dynamic Bouncer demonstration. (16K) 
$7.95 



Sports Games-1 (CS-4002) Take the field 
the Great American Computer Game: Base- 
ball. Also featuring Slalom ski race, Tor- 
pedo Alley, and Darts. (16K) $7.95 
Strategy Games-1 (CS-4003) Blockade is 
the popular arcade game of skill and sus- 
pense. Defend your space vessel against 
UFO's. Checkers is a beginners game and 
Genius is for trivia experts — over 7 
categories to choose from. (16K) $7.95 
Brain Games-1 (CS-4004) Bombard an 
atom with protons and electrons in Nu- 
clear Reactor. Parrot and Dueling Digits 
challenge your ability to mimic sequences 
of letters, tones, ann digits. Two oppontnts 
battle it out on a checker board in Dodgem. 
Bonus: two graphics demonstrations Mid- 
points and Lines. (16K) $7.95 
Haunted House (CS-4005) A nightmare 
simulation game. Search for the secret 
passageway if you dare. Watch outl With 
sound effects. (16K) $7.95 
CAI Programs (CS-4201) Spelling helps 
you progress quickly. U.S. Map covers the 
50 states and capitals. Two individualized 
math programs, Math Drill and Add With 
Carry, work with you on the basics (16K) 
$7.95 




Know Yourself (CS-4301 Compare your life 
style and life expectancy, investigate 
your attitudes and your sex role, your 
mental health to "the norm" and your 
physical response to alcohol. Four an- 
alytical programs. (16K) $7.95 
Super Invader (CS-4006) Features high re- 
solution graphics and antics by the moon 
creatures. A field of 55 aliens march 
across the screen showering you with 
lasers. As you pick them off one-by-one, 
your parapits wear away, and they whiz 
across the screen coming closer and 
closer to your level, with the original moon 
creatures and action twice as fast as any 
other invader game on the market. (32K) 
$19.95 

Space War (CS-4009) The object is the de- 
struction of the opponents ship by missile 
fire, by collision with the sun, or by ex- 
plosion upon re-entry from hyperspace. 
Space war offers you 5 different modes of 
operation including reverse gravity. Ships 
can circle behind the screen and reappear 
on the other side of the galaxy. All the 
features of the arcade game on your micro. 
(16K) $14.95 



Apple II Software on Disk 
Space Games and Sports Games (CS- 

4501) (32K) $14.95 
Strategy Games and Brain Games (CS- 

4502) (43K) $14.95 
CAI Programs and Know Yourself (CS- 

4503) (32K) $14.95 
Haunted House and Outdoor Games (CS- 

4504) (32K) $14.95 

Space War and Super Invader (CS-4508) 
(48K) $24.95 

Apple Gradebook (CS-4506) Apple Grade- 
book brings the speed and accuracy of the 
computer to the teachers traditional grad- 
ing and record keeping procedures. 
Gradebook stores and maintains all stu- 
dent records, summarizes the state of the 
class as a whole, and lets you check on 
the progress of any individual. (32K) 
$24.95 

For a FREE Sensational Software Catalog ot over 400 programs tor eight popular systems circle reader service #207. 
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Pet Software 



Logic Games- 1 (CS-1001) Six strategy 
games: Awari, an ancient Africa logic 
game; HiQ, a solitare peg game; three 
chess pawns battle it out in Hexpawn, 
Chomp and Flip Flop are Innovative logic 
games (8K) $7.95 

Logic Games-2 (CS-1003) Six more de- 
manding logic games: in Rotate you order 
a matrix of random numbers, Even Wins 
and Hilo pit you against the computer. 
Bantum and Strike-9 are "battle-of-num- 
bers" games. (8K) $7.95 
Graphics Games-1 (CS-1004) Five action 
packed graphics contests. Pursue your op- 
ponent through "Zap doors" in Chase or 
attempt a prison break in Escape. Includes 
Sweep, Dart, and Snoopy, (8K) $7.75 
Graphics Games-2 (CS-1005) Bombard an 
atom with protons and electrons in Nu- 
clear. LEM is a real time lunar lander 
game. Shoot it out in Artillery. Also fea- 
tures Dodgem and beginner's Checkers, 
(8K) $7.95 

Number Games-2 (CS-1002) Six games 
for the mathematically minded. All are 
absorbing guess - the - mystery - number" 
contests. Includes Guess, Letter, Number, 
Trap, and Stars. (8K) $7.95 
Conversational Games-2 (CS-1 006) Test your 
wit in 6 unusual games. Compose poetry 
with Haiku . Eliza plays psychoanalyst. 
Hexletter and Hurkle are intriguing strategy 
A games. Hangman will keep you on your 
^jtoes. (8K) $7.95 

Board Games (CS-1 007) The classics: 
Yahtzee, Backgammon, and Blackjack. 
Trek-3 is a Star Trek spectacular (8K) 
$7.95 



Pet Software 
Study Made Easy (CS-1 202) These pro- 
grams create study drills for any subject 
automatically. The package includes three 
sample drills and the program needed to 
create interactive easy-to-use study drills 
(8K) $14.95 

Action Games (CS-1 008) Battle it out with 
torpedoes, depth charges, and parachut- 
ists in Subs, Tank, and Splat. Breakout is 
the popular arcade game of skill and 
suspense (8K) $7.95 

Sensational Simulations (CS-1 201) Rule 
ancient Sumeria in Hammurabi or be 
a Fur Trader. Make your fortune at the 
Stock Market or just have fun with Animal 
or Word (8K) $7.95 

CP/M Software 

Basic Games-1 (CS-9001) 51 action and 
strategy games from the first half of the 
celebrated Basic Computer Games book. 
$24.95 

Basic Games-2 (CS-9002) 51 delightful and 
diverting games from the second half of 
the book. $24.95 

Basic Games-3 (CS-9005) 50 programs for 
games freaks from the sequel, More Basic 
Computer Games book. $24.95 
Basic Games-4 (CS-9006) Hours of diver- 
sion with 38 games from the latter half of 
More Basic Computer Games. $24.95 
Basic Games 1 and 2 and the Basic Com- 
puter Games book (CS-9000) 102 games 
complete with the illustrated sourcebook. 
$50.00 

Basic Games 3 and 4 and the More Basic 
Computer Games book (CS-9007) The 
latest releases from Creative Computing 
Software. $50.00 

Basic Games 1 through 4, Basic Computer 
Games, and More Basic Computer Games 
books. The definitive games library from 
Creative Computing Software. $95.00 



Creative Computing Software 

offers the educator, small business- 
man, and home user outstanding 
applications programs at modest 
prices. 

We offer a comprehensive selec- 
tion of over 400 programs, on 70 
tapes and disks for Apple II, TRS-80, 
Sorcerer PET, Sol-20, Challenger, 
and CP/M Systems. 

Now, Creative Computing Soft- 
ware brings you Sensational Savings! 



Sensational Software should be available at your 
local computer store. If your favorite retailer does not 
stock the software you need, have him. call our retail 
marketing department at the number below. Or you can 
order directly from Creative Computing. Send your 
check for merchandise plus $1.00 shipping and 
handling per order to Creative Computing Software, 
Dept301, P.O. Box 789-M, Morristown, N J 07960. Visa, 
MasterCharge, or American Express are also welcome. 
For faster service, call in your bank order toll free to 
800-631-8112. In N J call 201-640-0446. 



.;; n m n » ■ ■«■■■ m 









DISCOUNT CERTIFICATE 

This discount certificate Is worth one dollar off your next purchase of Creative Computing Software at any 
retail store. Not valid for mail order sales. Limit One Coupon Per Package. Void where prohibited by law. 
Offer expires June 15, 1960. 

SENSATIONAL SOFTWARE SAVINGS 



Customer's Name . 
Address 



Package Title 



. Package Code Number . 



Attention Dealer: Please include this coupon with your next order and credit will be applied to your 
purchase. If you are not presently carrying Creative Computing Software contact our retail marketing 
department at 800/631-8112. In NJ call 201/540-0445. Or write Creative Computing at P.O.Box 789-M, 
Morristown NJ 07960. Thank you for your time and cooperation. 
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PaperTape 
Reader 




• Only 1 moving part 

• 150 cps asynchronous 

• Bi-directional 

• TTL interface 

• Stops on character 

• Detects taut tape 
Fanfold box, spooler or stand- 
alone version with parallel 
and serial RS232C outputs 
also available. 



* 



ADDMASTER 

CORPORATION 

416 Junipero Serra Drive 

San Gabriel, California 91776 

(213) 285-1121 
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T-BUG^USER: 



Seper HESS: Onboard relocate lex T BUG. moves T BUG to any 
desired RAM location Now examine, modify * P punch backup 
copies ot formerly ccancioent program material, experiment with 
parallel kustom T BUGs Also oil relocate TSTEP 
16K Level II Super ILfGSNo 11 9 95 

TSTlf: Single stepper lor T BUG Displays PS CPU aspects 
related to instruction set as you SPACE through ROM or RAM 
Indrspensibte tor debugging, anafy/ing alien program material or 
learning I 80 

a) CPU regains in before/alter * R eke lormal. user access** 
independent ot T BUG registers 

b) Testable flag status in before/after format 

c) Top stack elements in before/after lormal 

d) 6 key Implicit Keypad Backspace. CLEAR, more 

Subroutines can be single stepped or run directly, control 

remaning with TSTEP Also. Super TLEGS will relocate TSTEP 

making monitor and single stepper into an independently 

relocatable unit Centum any code by weag what you are 

imagining 

1 6K Level II TSTEP No LL 1 11 95 

EMU 12: Software emulation ol the 6502 microprocessor 
T BUG displays byte EMU lakes it from there Now you can 
write, debug, execute 650? programs m tew TM-M1 

a) Disassembler posts standard 6502 Assembly mnemonic 
next to T BUG displayed byte, in scrolling held 

b) Single stepper displays 6502 Processor Model in 
Delore/atter form, expanded flag and stack elements all up 
dated after each instruction is SPACE ed 

c) 4 speed TRACE mode ammales 650? Models activates 
keyboard scan port accessible to 650? instructions 

d) Fast interpretive RUN mode lor realistic execution 

e) 13 key nipkcit Keypad. Backspace. Reispace more 

How to have a 650? without having a 650?' Compare and 
contrast, work in a powerful programming language that is 
distinct from BASK. / SO Read Apple PET code 
16K Level II EMU 02 No Bl 1 $2« 95 



75 mailing each program. CA add 6'. 
ALLEN GELDER 
Box 11721 Main Posl 0tl.ee 
San Francisco. CA 94101 
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Music 
Composition 
by Analysis 
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Jack Wilson 



The power of the computer has 
been applied to music composition 
and synthesis for many years. How- 
ever, most of the accomplishments 
have been locked away in the studios 
of universities. Now, in the dawning 
age of the microcomputer, the thrill of 
creating real music can be felt by 
anyone. 

Creative Computing has made a 
real contribution to musical research 
on the home computer by publishing 
articles pertaining to composition. I 
call your attention to "Music Compo- 
sition: A New Technique," Feb., 1979 
and to "Music Composition: A Dif- 
ferent Approach," Apr., 1979. 

The program presented here dif- 
fers from the above programs in that it 
is not based on controlled random- 
ness. The program performs an 
analysis of an existing composition, 
extrapolates the patterns of notes, 
and creates a new composition based 
on these patterns. It establishes the 
patterns by determining what notes 
can follow any given note and the 
relative probability of each of the 
possible following notes. If your 
favorite composer never followed a C# 
in the third octave with a C# in the 
second octave then the piece created 
by the computer after analysis won't 
do that either. 

The program was written on a 
Heathkit H8 computer with 24K of 
memory and a disk operating system. 
The program is in two parts. Listing 1 
is the part of the program that will 
build a file on disk composed of 
numbers representing notes of a 
single voice of the composition to be 
analyzed. This file could be built in 
memory if sufficient space is avail- 
able. Durations of the notes are 
ignored but could be a subject for 
further study. Listing 2 is the analysis 
part of the program. 

Any number scheme can be used. 
The scheme I used was to assign the 
numbers 1 through 12 to the twelve 
semitones in the highest octave 
starting with "C." Each succeeding 
lower octave is represented by adding 

Jack Wilson, 2648 Goddard, Toledo, OH 43606 
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16 to the same note in the next higher 
octave. (Notes 13 thru 16 are rests.) 

The program performs a two pass 
analysis of the composition under 
study and builds a three dimensional 
array representing all two note 
combinations. The first pass simply 
creates a list of all the notes used and 
stores the list in the first dimension of 
the array. The second pass lists, in 
the second dimension of the array, all 
possible notes that could follow the 
note in the first dimension of the 
array. The second pass also stores 
the frequency of occurence in the first 
element of the third dimension of the 
array. The program then determines 
the probability of occurence and 
stores this in the second element of 
the third dimension of the array. 

This array, essentially a probabil- 
ity chart, can be printed for study and 
for confirmation that the program is 
functioning properly. 

Finally the program will apply the 
data in the probability chart to create 
a new composition of any length. This 
composition can be printed and 
played on any instrument. I am for- 
tunate in that I can let the computer 
play it back for me on a custom 
designed synthesizer interface to the 
computer. 

The music created In this way will 
never make the top forty but it is 
pleasant to hear. I find it much better 
music than any created by controlled 
randomness. If Bach is the composer 
analyzed then the resulting composi- 
tion is definitely "Bach-like." The es- 
sential problem is that the music 
seems to ramble, never building to a 
climax. 

Using this program as a stepping 
stone, the possibilities for new music 
composition programs seem endless. 
The experimenter could use the 
resulting composition and subject it 
to analysis for second or third gener- 
ation compositions. An occasional 
random jump could be incorporated. 
Programs could be written to com- 
bine 1 /F correlation to develop music 
with more surprises. Music composi- 
tion by computer has unlimited 
potential for further study. D 

CREATIVE COMPUTING 



Composition, cont'd... 


LIST 
00001 


RE* THIS PROGRAM BUILDS A FILE O c NUMBERS REPRESENTING A SONG. 


00003 


DIM R*t 12) 


■jcoo: 


R»(0)»*(» , l m(l)«'C'l F»(2)» , CS': R»<3)"*D'l R»;4>« , DS' 


00004 


R»<3)»*£': R»(e>a a F*: R«(7)«'FS*I R*(8)«'G': R*<?>>'GS* 


50007 


Rt(10)-**'l R»(11)«'A3'I R»<12)» , B' 


00020 


INFUT '.<ArtE OF SONG TC BE EMTEREPT 'iA* 


000 30 


OPEN A» FOR WRITE AS FILE «1 


000-0 


PRIHT 'Ef'TE? EACH rtOTE AS THE LETTER OF THE NOTE. C ShARF • "CS'.' 




•2 -LAT « FS'. REST ■ 'R'. A « 'A '.ETC 




! 'THE TOP MOh" OCTA">E IS '!'. THE LuUEil OCTAVI IS 3'.' 




PRIrtT "A RE3T MUST AL'JJYS IE 1(4 THE TOr- OCTAVE (1;.* 




I -JHEH THE LAST NOTE IS ENTERED SAT '3' FOR THE NOTE. • 






oco -o 


FPT.N1 • ;:"E 'it;- m «ir INPUT :r» 




if :ii'Z' : - »ot: ioo 




P» • • OCT*VE ■ ' i : . 


001)0 


for E'O ro 12: :f r»<Ej»c» then goto 130 


Ouiis 


NEXT E 


00120 


'INVALID NOTE NAriE. •: uOTO 90 


00130 


FOR F=0 TO Ii:E=Etlo:N5:*T f 


oo :jo 


e»e-;«,: PRINT ♦:.£: B»B-1 


ooi :o 


30TC »0 


00:40 


LLOSE «1 


« 


Listing 1 



■ * 






Hi -■ 9 tE ENTERED" 




nS THE LETTER Of THE NOTE. C SHA.SP » 'C3 


. 


S FLA' - 'FS' . .'EST * 


' V . A ■ 'A' .ETC 




'HE TOP HOST OCTAVE I 


S '1'. THE LOUEST OCTAVE IS '9'. 




■ST MUST ALUAYS I-E 


IN T -E TOf OCTAVE (!>• 




uHT .T NOTE :s 


ENTERED S»t '3' FOR T*E NOTE. 




NOTE : ■ 

OCTAVE « » ■» 






X T £ 3 - ' A 


J^V^'tw ^ 




OCTAVE - ' I 


•*< j\vr ^in 




NOTE 3 » ; A 


\b rat ^ 




OCTAVE » 7 4 


ifrtb^ r$i «ffi 




NOTE 4 ■ ? C 


^M\fy&i ft ./IpiL. "V J 




OCTAVE - ' 3 






NOTE S = » D 






OCTAVE » •» 3 


! p*jSs(§0. Je^3£le£f 




NOTE 6 » » A 


/ <T\'^B^' ''C^JE^T^fe^W Vb 




OCTAVE > ? 4 


AClVi'Hi Jb*v1 ^**M£W 1 




NOTE 7 • ? C 


"jE'lH "^ PiiBb^S^sMl 




OCTAVE - * 3 


'"af^aKwfl tf j> /kJ^^BH oUmj]! *fl 




NOTE 3 - T D 






OCTAVE - » 3 


~j^_ 3SmT^ *** ^luvisSB^**— - 




NOTE « - T E 


less*™ 




OCTAVE "73 




NOTE 10 = » C 




OCTAVE « ? 3 


TiTi'L^^ ^fc - " 1 






NOTE 11 ■ » R 


nJBK/aB^^. _ =^^H 






OCTAVE ■ T 1 










NOTE 12 * t E 

OCTAVE » T 4 


















NOTE 13 • ? G 

OCTAVE - ? 4 










»** SB iBf _ 


NOTF 14 • - A 










OCTAVE • ? 4 








NOTE IS « T E 








OCTAVE « " 4 


^Lv^WWSI If — -p 




NOTE 14 ■ T 8 






OCTAVE » » 4 






NOTE 17 - T A 






OCTAVE • T 4 






NOTE 18 - T G 






OCTAVE -74 






NOTE 1? » ? G 






OCTAVE - T 4 






NOTE 20 - » G 






OCTAVE ■ T 4 






NOTE 21 • ■» R 






OCTAVE - T 1 






NOTE 22 ■ T R 






0C1AVE - ' 1 


NOTE 27 « T A 




NOTE 23 • T • 


OCTAVE ■ T 2 




OCTAVE ■ » 2 


NOTE 28 » T A 




NOTE 24 » T 


OCTAVE - T 2 




CCTAVE - T I 


NOTE 29 « ' G 




NOTE :;s - T ? 


OCTAVE " T 2 




OCTAVE - * 2 


>IOTE 30 • ? Z 




MOTE 24 » ? B 


END AT LINE 45331 




OCTAVE •■ T 2 


• 





CnMYJT 

-FRACAS> 

/ ' ik / |V \ ' \ V v((l 



(fra'kas) n.l. a noisy 
dispute or fight; loud 
quarrel or disturbance; 
brawl; 2. a fantastic 
computer adventure 
challenging any number 
of players to explore a 
secret maze packed with 
hidden treasure, guarded 
by wily adversaries... 

Available NOW for 

APPLE II with 16K 

RAM...ONLY $19.95 

(postpaid) 

(CA rrsidrnls plraiu* add .«lr* lax) 

QUALITY SOFTWARE 
SATISFACTION 
GUARANTEED 




Computersmitht 

Box 755 

Meadow Vista.CA 95722 

(916i 878-2591 
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ARMCHAIR 

Quarterback's 

I lib the ley land co. 
INTRODUCES 

TD-80 

FOOTBALL 

SOFTWARE OFFERS 
real time - action packed 

football program • 

OFFENSE* Move QB, pass, 

hand off - pulling guards 

DEFENSE* Blitz QB. 

intercept passes. 

LEVEL I OR II 16K 

30 DAY MONEY BACK GUAR. 

$24.95 M/C VISA 

(404)4287444 

THE LEYLAIMD CO., INC 



2920 wood forast - marristta. ga 
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Serve) Mors Than 20 % 

NORTH STAR -INTERTUBE 
THINKER TOYS— MICROTEK 

THE SMARTEST COMPUTERS AT 
SMARTEST PRICE 
OUAD * DOUBLE DENSITY 

List 



27B6 
2799 
3215 



Only 
1585 

1906 
2195 



Your Best Buy 



8000 6250 

1149 9*9 

1549 1299 

640 
Oil lor Price 
995 745 

7S0 675 

995 875 

4300 Call lor Price 



Horlion-I-HK-OKM 
HorUon-2-32K-OKIt 

Assembled & Tested 
Horl2on-2-32K Kit Quad 

Assembled & Tested 
Pascal lor North Star on Disk 
Powerful North Star Basic 
TEI PT 21 2 Computer 5 MHZ 
Thinker Toys Discus/20 AST 
Discus/2 .2 1 2 Megabytes A»T 
Maaauremenl System Memory AST 4MHZ64K 
Godbout Memory 
Interlude II Smart Terminal 
Microtek Printer 
Anadei Printer 
Florida Data Printer 600 CPS 
Maryellen Word Processor 
Te.twriler III 

EZ 80 Tutorial Learn Machine Language 
PCS tor North Star Better than CP/M 
Compiler for Horizon Secret Superfast Code 

tO%Oti Software Prices with Computers 
Verbatim the Best Diskettes Boi of 10 
Which Computers Are Best? Brochure 
North Star Documentation Refundable 

w/HRZ 

AMERICAN SQUARE COMPUTERS 

KIVETT DR' JAMESTOWN NC 27292 

|»1»)-s*3-1105 

■-CIRCLE 108 ON READER SERVICE CARD- 1 



rnrr I "P ,0 S"0 in "rercriandise 
in tL ! with purchase ol PET-CBM item ' 



36 
125 
25 
99 
100 

29 

Free 



Composition, cont'd. 



TIT IBK Ufet rUrtesrt 
PET 3ZK larst Uytesrs 



S 995 SIM 

S1295 SI70 



P ET U Laret KiMstri la ret s 795 1100 
PET Z040 Otal Kill I343KI $1295 1170 



PET 2023 MtUr [arts ttefl S 649 S1 10 / 
KT 2022 Meter (Mc Ml S 995 SIM/. 




KIM- 1 SIS* mt»iKHmim*t SYel-IS 20900 

UIOM EI-M1 Mtkv-m S 47700 

2114 L ISO n 5 35 24/4 95 100/4 45 

271S EPMal (5 VsMI SON 

SSM IM Per OK Pit 12 70 

PET 4 Met Btuic Srikti (KL-4JMI 29 50 

U laaki tt Sethnrt ISSOFF 

Ltrtti Mm IN 12" Matt* 119.00 

Asetoai-JscMtM 041 Sttectrtc bar) 101500 

Htal* WH-19 Ttn*s«M (tact list I 77000 

Halt NN-14 fiMar (tact isaxl 71500 

Prummtrj Tseftil - PET SON ISeVsfs 44 90 

■■oetlta 20 tar KT tr APPLE 17 00 

KT Otant heawae; ■ shtatal laaaetai 24.00 



3M Scotch 8 Disks 1031 00 

3M Scotch 5 Disks V S(, 10-31 SO 

Vtrtjitim 5 Oisks <J»V 10/26 50 
Oist SlorjM Plots 



■MJJttltt?*- 

ttitS see** howS*ng Nrtlft laturis 

C 10 10/5 95 50-25 00 100 48O0 

CJC 'ft? 00 5Q/3QOO .00/57 00 

A0d S t per OffJer tot U?S shipping 
Ash tor 6502 TRS-80. and S- .00 PrpQuCl L«H 



A B Computers *. 



CIRCLE 103 ON READER SERVICE CARD 



it.icPC-Ei3ucstio(i9l 



Professional quality CAI master programs for 
APPLE II. 

— ANIMATED TUTORIAL — Create spec- 
tacular high-resolution cartoon sequences, 
captions, questions and answers. Student 
Interactive. Unique). Requires [32k cassette, 
48k disk) $25. 

— COMPLETE CLASSROOM PACKAGE — 8 
new programs incl. Animated Tutorial, Read- 
ing, Maths and Utilities to let your Apple 
earn Ita keep. Requlrea 32k. [48k disk) $60. 
Add $5 lor airmen, $4 lor disk. Send bank 
dralt In $ U.S. to: 

mlcroEducatlonal • P.O. Box 280 • Nelson Bey 
N.8.W. 2315 e AUSTRALIA 

CIRCLE 1S7 ON READER SERVICE CARD 



LIST 

00009 DIr» FS<12> 

00010 DIM rt(30»20>2) 
: F * < ) • • R • : F ♦ ( 1 ) ■ 'C •:F8<2>" , C8 , JF8<J>" , D * 

»00H Ft<4>- , D»"JF««S>""6 ':F»<6>«'F •IF»l7)a'FI' 

i F»:3>«'G * ir»i?i»'Sr iFSl 1L')«*A •IPtUm"'*.** tF$<l2>»*B ■ 
01020 INPUT "NAME OF SONG FOR ANALYSIS?! '»A8 
00021 INPUT "SHALL I PRINT ThE VOICE? ' »»» 
0002-4 IF ••■•1 a THEN GOTO 2000 

00C30 INPUT 'HCW MANY NOTES OF THIS SONG SHALL I ANALYZE': *»C 
0OC4O L'CIOPEN AS FOR REAB AS FILE 41 
OOOSO INPUT IJ»»3 

0^060 FOR B»G TO 30:iF NXB>3.0>>D THEN GOTO 90 
00070 IF N<B.O.O)*G THEN GOTO iCO 
00080 NEXT B 

00090 N<8.0. 1 >"N<B»0. 1 Ml :ooto 110 
00100 N<B»0.')i»D:N<B»0» 1 ; ■» 
00110 C»c-i:if C«0 THEN GOTO 130 
00120 GOTO 30 

00130 PRINT 'PASS «1 COMPLETE. ALL NOTES BUILT IN N(B.OiO). 
00140 CLOSE «1 

00150 OPEN AS FOR REAP AS FILE 8i:iNPUT 81.13 
00160 FOR B«0 TO 23 
CO'. 70 IF N(B.O.O>«0 THEN GOTO 190 
O01G0 NEXT B 

00183 PRINT 'ERROR - NOTE NOT F3UNI-.' 
001»0 INPUT 81. IB 

00200 FOR E-l TO 20!IF N<?.E.0>«D THEM 03 T C 230 
00210 IF N(B.E.O>>0 THEN SOTO 250 
00-20 NEXT E 

00230 NsB.tr 1 )»N«6.£.l ) M:30TO 260 
00230 N< ?.E.0>»D:N(B.E- 1 )"i 
00240 L«L-i:iF l_«0 THEN GOTO 280 
00270 00T0 160 
00280 PRX!»T 'PASS 42 COMPLETE. ONE DEEP ANALYSIS DONE 

00300 FOR B»0 TO 30 
00310 FOR E-l TO 20 
00320 A»N<B.E.l)t4 
00330 NEXT E 

00340 FOR £«1 TO 20.'IF N(B.E.1)"0 THEN 3CT0 360 
00 350 N(B.E.2)»INT<rN<B.E.l)/A)*100) 
00360 NEXT E 
00365 A'O 
00370 NEXT B 
00380 CLOSE 81 
00390 PRINT 'PROBABILITY CALCULATIONS COMPLETE. I AM PREPARED 

00395 INPUT 'SHALL I PRINT PROBABILITY MAP?(Y.N>! '(AS 

00396 IF A»»'Y' THEN SOTO 1000 

00400 INPUT 'PLEASE SEED WITH FIRST NOTE IN NUMBER FORMAT IE<38>: 

00410 INPUT "HOW MANY NOTES SHALL I COMPOSE?: ")2 

00415 K-l 

00420 INPUT 'UHAT SHALL I CALL THIS MASTERPIECE' MAS 

00430 OPEN A» FOR WRITE AS FILE 81 

00440 FOR B«0 TO 30MF N<U.0.0)«A THEN GOTO 460 

00450 NEXT D 

C0455 INPUT 'SEED DIDN'T GERMINATE. TRY AGAIN. ';A!G0T0 440 

00460 FOR E»l TO 20 

C0470 F«INT(RND(1>*100) 

00480 IF N(D.E.O)»0 THEN 

05490 IF M(D.E.2)>F THEN 

00500 NEXT E 

00301 IF G*0 THEN GOTO 300 
00310 GOTO 460 
00520 PRINT 81fN<r.£.0> 
00540 K«r\t 1 

C0330 IF K«Z THEN GOTO 600 
00560 A-N(D.EfO) 
00370 GOTO 440 
00600 CLOSE 81 

00610 INPUT 'WANT TO PRINT NEW SONG? '.0* 
00620 IF 0««'Y' THEN GOTO 4000 
01000 K'l 

01020 for b'o to 30:n«n( b.o. 0> 

01030 for c»0 to 8:n»n-16:if n :0 then goto 1030 

01040 k»k*i:next c 

01030 N=N+16 

01060 FRINT FSINXKI' < ' iN( 5.0. 0) ! ' ) ' . N( S . . 1 ) 

01070 for t* 1 to 20:tf n<b.e.0)>0 then goto 1140 
01080 k»: :n-n<b.e.O) 

01090 FOR C-0 TO 8:n*»!-16 
OllOO IF N<0 THEN GOTO 1120 

01110 k«i»i:next c 

01 120 N*N4 to 

01130 PRINT ' '.F«(N)IK»' ( ' IN(B.E.O) I ' . ' .N(B' 

01140 NEXT E 

01150 PRINT :next B 




TO COMPCSE. 




E . 1 ) . N ( B . E ■ 2 > 
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CREATIVE COMPUTING 





Composition, cont'd . . . 
























■■STOCK MARKET •TRADIR^H| 










^mmm entrepreneur m^M 








01160 GOTO 400 

02000 INP'JT 'HOU MANY NOTES SHALL I PRINT' • *M 


Xd^n ^B f B/jf/^. 




LETTER PROCESSOR - 






Tht LETTER PROCESSOR no multi-purpose utility 




02010 OPEN A* FOR READ AS FILE 11 


NiIUsp^i* 




progrom , With it , you generate multiple cost* of notes, 
receipts, monuschpts.ond totters Yc« have ft* choice 








02015 INPUT «lt»D 






withreceiptt and let tort of hoving each pertonolly 








02020 H»H-i:iF H»0 THEN GOTO 23ao 






oddrt tted . Tht no met and addrottot may bo input 








02030 E-D1N-1 






from oithor tht keyboard or ca ttetto . 












rVwitonfheTRS-BOhnt2 *SK Pleoeerem<tli5fiS 








02040 FOR C»0 TO 9:E-E-1&:IF E<0 THEN GOTO 2040 

020SO k»k+i:next c 






ACCOUNTING ANALYSIS SYSTEM - 






Thit system portormi MmpM doubit entry boot hooping. 




02060 E-E+161PRINT FXEKKiO 






There oro two fistd occountt in addition to any tho uoor 














may create Ono it under attett called oath on hand, 








00280 PRINT "'PASS »2 COMPLETE. ONE PEEP ANALYSIS TONE. fSrSSS^^ 




the other itundor liobilrtiot catlod dobt toownor 
Automattc oocond ontrw* oro modo to tho appropnoto 








00300 FOR P«0 TO 30 






of 1tk»M two account! by ono of tho two owttom pro - 








00310 FOR E«l TO 20 






gram, whon updating tho data bOM.Ttw program qutor 
mo tho data bota and producot o Bolanco Snoot ond 








00320 A»N<Et£> 1 >*A 






o Profit-Loot ttotomont 








00330 NEXT E 






TRS-90 tO¥2 l6Kond PET Ploato romit 120.95 








00340 FOR E«l TO 20!IF N(B»E>1>*0 THEN GOTO 360 
00 310 N<£>E>2*INT<(N<Et>E>l)/A>*100> 






STOCK MARKET ANALYSIS SYSTEM - 






Tochmcal onolyoit ,12 doily ond ISwooMy Mwotora 










tar tho ftocfc morhot onthuoiatt Thu tyotorn tignoMd 








00360 NEXT E 






thoOctobor 76doboclo For»25.99 you rocoivo two 








003*5 A»0 






program* ph» data boo* and 27pogo dotoilod m- 








0C370 NEXT S 






tt ruction manual 

Ploato mdicatt TRS-80lov lor2 l€Kor PET >25 99 








■ o:>ao close «i 

00390 PRINT 'PROBABILITY CALCULATIONS COMPLETE. I 


AM PREPARED TO COMPOSE. 




OPTION ANALYSIS SYSTEM - 






Thit tyttom it ttrictly for tho mar hot •pocuutor. Work- 




00391 INPUT 'SHAuL I PRINT PP-CSABILIT' HAP?<Yi«>! 


• (A* 




ing with prico , cokurotod volatility , and cofculatod 








00396 IF A*='Y' THEN f.3'0 1C ) 

■)<j*QO INP'JT -PLEASE 3ESD UITH FIRST -I3TE IN NUMBER 


FORMAT IZ<S8>!*IA 




avorogo daily promwm, thit oyttom picht tho boot buyo 
from TSormorooptiont. Judgomont bythoanolyttn 
roauirod . For • 35 00 you rocoivo two programt plut 








00410 INPUT "HOM ne,;i' N0TF3 SHA.L I COMPOSE?: # sr 






osamplo data bato ond inttruction monual 














PtooM indicato TRS-fX)hw.2 I6K or PET »36V» 








00*13 s-i 

20 INPUT -LHAT SHALL I iALL THIS MASTERPIECE' ■ 
00430 OPEN .'•.» FOR URITE AS r'lLE *l 


FAS 




STOCK MARKET FINANCIAL ANALYSIS SYSTEM - 












Includtt two programt and hoid copy inttructtont for 
btt ttr control of your ttocb and option tranooctwno . 








00440 FOR P"0 TO 30:IF N>D»0>Oi*A THEN GOTO 460 






For*20 OS , you rocoivo toft woro with oight onoiytit 








00450 NEXT D 

00455 INPUT 'SEED 1'IDN'T GERMINATE. TRY AGAIN. '»A 






routinot Two of thooo rout mot oro ttoch tronooctiont 








.•GOTO 440 




which modo monoy and opt wn transactions wMoh modo 
monoy. Siimoro program routinot outt withtomo 








CC460 FOR EM TO 20 






conwdorotion givtn to taut. Ptoato indkato I A 








00470 F»INT(RN5(1)*100) 






TRS-80 lov 2 I6K or PET » 20 Qfi 








00480 IF N<D.E.O>"0 THEN GOTO 510 






^MDittnbuttd by STEVEN E SHAW. PE^HH 
BiSH PO Boi 1707 ^H 








00490 IF N(D»Cr2>>F THEN GOTO 520 JALA* 




i3V*?£Mff 






bHk^k^BlwlwlwH Tampa . Florida 53601 ^bkwH 






00500 NEXT E *2r 

00501 IF G«0 THEN GOTO 500 (ft 
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00510 GOTO 460 














00520 PRINT *1.N;DfE.0> Jft 
10S->0 K>Ktl f^A 


^s%> 
















>0550 IF K-Z THEN GOTO 600 JC 




Hi ejUs^^ ww* 






0CS60 A'N(OfErO) 














00570 GOTO 4*0 














00600 CLOSE *1 














00610 INPLT 'WANT TO PRINT NEW SONG? *I0» 














00420 IF OI»'Y* THEN GOTO 4000 














01000 K«l 














51020 FOR B«0 TO 3O:.M»N(Br0iO) 






visit your 








01030 FOR C*0 TO 8:<»N-16:IF NO THEN GOTO 1050 












010*0 K"! H :>EXT C 






North Star dealer 








01050 !l«N+lo 






Cor a 








010*0 PRXMT FtiNHKf C)N<frfO>0>«'>*>N<«fOtl> 












01070 FOR £• 1 TO 201IF N<B»E»0>»0 THEN GOTO 1140 






destonstration 








oios>; \»: :n»n(B.e>0) 






of 








01090 FOR C-O TO 8:N«N-14 












01100 IF N<0 THEN GOTO 1120 






the finest in 








OHIO K-K + 1 :next c 














01120 N«N+14 






appl ications 








01130 PRINT • •»F»(N)iXi' C IN(B.EfO)i ' >'»N<B 


rCfl)tN(tffff2) 




software 








01140 NEXT E 














C»150 print :next b 






for 








01160 GOTO 400 






inventory control. 








02000 INPUT -HOW MANY NOTES SHALL I PRINT? *»H 














0201C OPEN A* FOR READ AS FILE »1 






order entry. 








02015 INPUT «1.»D 






mailing list handling. 








OiOCO H«H-i:iF H»0 THEN GOTO 20S0 














02030 e«d:n-! 






and 








02040 FCR C-0 10 9:E»E-16:IF E^O THEN GOTO 2060 


A 




preventive Maintenance scheduling. 








02050 KBft+ltMCXT C 


%p*<* -*dBJF5 












02060 E-E+16JPRINT F»(E>!K.D fUC\ 


^ 
















02070 GOTO 20!5 ^t 


r^ 


■ 


. 












02090 CLOSE *i:goto 30 ( 


[ 
















04000 OPEN A» FOR READ A3 FILE »1 > 


^ 
















04010 INPUT 'MOW MANY NOTES SHALL I PRINT? '»H 
















04020 INPUT »1.ID 




■"PVi*: 








04030 e»h:k-i 




lllo 








04040 H«H-i:iF H»0 THEN GOTO 5000 












04050 FOR C»0 TO 8:E«£-16:IF E<0 THEN GOTO 4070 
04060 C«f. + i:NEXT C 




Software 








04070 E«E+16:PRINT F«(E)»KrU 












04080 GOTO 4020 




T l\T?~\Til 7~ o ~\~r~\r~± 








05000 CLOSE »1 




V VOI ivo, 1 jQCL 








05010 STOP 




• » ^p^ •*• .*» J^«— rm m A m ^^ .A.^^ —1 /# 








g 
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imposition, cont' 




MM indi'tvi »Hrrv> 

«* toCMl and |MmI 

Urtnort RPN k«« 
And ohm 



i™« (aidftradri aP>intriiria< 
prm« uppir and tinaci OH alpha 
*. I*w* *P" >»" < "*' 

nVMInMMHT- 

^"^fc wwliMion pat* 

^M Hi* Ihr Wand M 



HP-41C. 
A SYSTEM. 



mmamm mnhj i mm 
ihaf givr mmm 
« kJ* ranar ol p i u Mam* 
ThtHP4ic Mann 
rrottiyn ant iiandard 
I unci inn an* pniftam* 

gram* pnnidrd in ihr 
ApplK ai - * hVidnlrt - M> 
j- ■ NPJPMMffi' i nn j 
,.~-an» AnddcoWW 

-..dbncfc* 
ihr HP Alt Kith Mini toll 
■MM tuppwl inchadinf 

■<r * Manual and 
ihmrund* >i program* 
>n ihr MP *H Apt**. 
■■■m* Book* and ihr 

linvri. 1 >t«a>t 

F.iprrimcr ihi« rrmartaMr muni 
mm Thrm HP4IC from hWkti 
Packard A taAculau* A 



♦ « 
tR. 



K.. i.O. 



pwy— 




Whitt Pla.nt M»H. 700 M»w.flon Am 
Willi* Plaint. NY. 10M1 

UI4IWMT 0*TA 



CIRCLE 125 ON READER SERVICE CARD 




. Designed by Hal Chamber! in 

■ and MicroTechnology Unlimited 

tor the folks at M.M.I, and You! 

Great Fun! The Micro Composer comes com- 
plete with an instruction manual, software disk 
or cassette — in either Integer or Applesoft 
ROM BASIC, and the MICRO MUSIC DAC 
music card. Just plug the MICRO MUSIC DAC 
into the APPLE extension slot and connect the 
audio cable to a speaker ac ampufiei neeiei 

• PLAY UP TO 4 SIMULTANEOUS VOICES! * oon 

• EMTER MUSIC NOTES IY A FAST SIMPLE. *ZZU. 
WELL-TESTED COOKS SYSTEM 

• PAOGAAM THE PITCN. AHYTHM. AMD TIMIIE OF THE 
MUSIC TEMPO IS IAIIEI IY THE APPLE PADOLE 

•COMPOSE. EDIT. DISPLAY All PLAY MUSIC THI0U6H 
Al IITEIACTIIE. COMMAND-DRIVEN LANGUAGE 

• SAVE Till MUSIC II DISK II CASSETE 

EACH (OICE SOUND CAI IE CHANGED TO IEED. 
MASS. STRING II IIIAII 

COMPUTER CORNER „?,»"£. 

«^ S ». J IFMWJEI.UT ( . 0l)8 35- 7 MO 

W*j__^APPlE II t% a ttystena ttaJtmirfc of Apple Computer inc 



CIRCLE 124 ON REAOER SERVICE CARD 



! FREE 

I SOFTWARE CATALOG 

• 

♦ For a free 20-page catalog of 
Creative Computing Software for 
)• all computers circle 207 on the 
reader service card . 
■n^t-^» — »•«»»■»■«»»■»—»■ 



RUN 
























NAME 


OF 


SONG 


FOR 


ANALYSIS*: 


INIM 








SHALL 


I 


PRINT 


THE 


VOICE' 


r 












HuW fANY NOTES SHALL i P 
A 4 58 


RIN 


T1 3< 
















^", if ' \ 






^^1 




A 4 








58 






">- 


5^t i 


^^"~ > " 


jg 






A 4 








58 






■r^v 


*^S*1 


§»< r 








C 3 








ZS 






^\V " 


ta* ^ 










ti 3 








35 






0jt 
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A 4 








58 






E* * »* 




""/'■ .' 








r j 








33 




W< 
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I.-. 


mm _' 






D 3 








35 
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E 3 








37 
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C 3 








33 
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53 
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A 4 

E 4 








58 
53 
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I 1 S» 1 






G 4 








56 








\i<^ 




jfcj 
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ii£lt* 1 
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38 
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56 
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G 4 








56 
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-Si 


A^ft ■ 


9 4 








56 




f?t 
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irr 
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M ( 




^Ife^ 




* 1 













if " 


K.y j 


■^^' litl 
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D 1 
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A 2 
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HOU MAN1 


26 
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NOTES OF 


THIS S 
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^mV^mmBm^^J 




\ 




™ \ 




- ~ ^^1 




ONG 


SHALL I ANAL 


Zf'. 75 






PASS 


«1 


COMPLETE. 


ALL NOTES 


BUILT IN N<3 


.0.0! . 






PASS 


♦ 2 


con 


PLETE. 


ONE I'EEP 


ANALYSIS HONE 








PROS.; 


BILITY 


CALCULATIONS 


COMPLETE. I Art 


■PEPAREr 


TO COMPOSE. 


SHALL 


I 


PRINT 


PROBABILITY HAPT<YtN)i T 
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18 
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9 


















A 
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58 


> 
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37 
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33 
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3 




23 
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33 
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4 
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56 
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-> 




23 
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33 
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33 
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66 
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33 
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3 
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58 


) 
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33 
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37 
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33 
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60 
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37 
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33 
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56 
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36 
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54 
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16 
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24 
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16 
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1 




100 
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26 
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> 
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4 
26 
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25 
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< 


24 
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SO 
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21 
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1 




25 






G 3 


( 


24 


) 
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24 
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23 
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28 
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23 
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Composition, cont'd . . . 




E 3 


< 


21 


) 


7 






G 


2 


( 


24 ) 


3 




g 


2 


I 


21 ) 


2 




D 


1 


< 


19 ) 


1 


D 3 


< 


1? 


) 


2 






D 


2 


( 


1? > 


I 




£ 


2 


•' 


21 ) 


1 


B 5 


( 


60 


> 


4 






D 


3 


< 


35 > 


1 




1 


4 


< 


to > 


1 




A 


4 


V 


58 ) 


1 




G 


4 


< 


54 ) 


1 


D 7 


( 


SI 


, 


1 






D 


4 


' 


51 > 


1 


,V 4 
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E 


4 


* 


53 1 


1 




1 




I 


Jo > 


1 






2 


/ 


24 ) 


1 




£ 


j 


1 


2: i 






;-■ 


4 


< 




t 
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S 4 


, 
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-c 












' EftftOA 


- c 


Tl_ 


-C STRUCK A 


t l:n£ 


*GOTC 


400 








fCDNT 


:nue 









42 
28 
14 



50 
50 



25 
25 
25 
25 



100 



20 
20 
20 
2') 



1140 



SI SEED WITH rlRST NOTE IN NUMBER FORMAT IE<56>:58 
HOU MANY NOTES SHALL I COnFOSE': 50 
-HAT SHALL I CALL THIS MASTFRPIECE? IND 
WANT TO PRINT NEW SONG' I 
HCU MANY NOTES SHALL I C RINT' 



30 



A 

c 

D 

A 

A 
A 
A 

F 

a 

A 
E 
G 
G 
G 
A 
C 

G 
D 
A 
A 

c 

D 

A 

A 

A 

STOP AT 

* 



3 

4 
-1 
•> 
4 
4 
4 
4 
J 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

T 

3 

4 
4 
4 



.INE 



53 

54 
53 
58 
33 
IS 
53 
5S 
58 
53 
53 
54 
58 
53 
56 
56 
56 
58 
5e 
56 
54 
5* 
58 
58 
33 
35 
58 
58 
58 
5010 





For PET. TRS-80. 
Compucolor II 

EVERYTHING YOU NEED TO BRING YOUR 
BASIC PROGRAMS TO LIFE WITH SOUND 

Complete system including 

• ,i in, it speakei amphftei unit with volume control and connectors 
NowiritKJ, no solclt'tint]' 

• I >I.M( ) program with a variety of lample sound effects and 
music. ll notes 

•COMI'OSI K program to help von Create vour sound effects 
and tunes 

• complete Instructions. Including sample BASIC subroutines, fbi 
adding sound to KASIC progi 

Al.l I'MSJv IKS HO II ■j.yi'if. Compucolor II $3'>". r > 

PLUS! RECREATIONAL SOFTWARE with SOUND! Send for 
our FREE CATALOG o( programs for PET and Compucolor II. 
SI I V(H1I< 1)1 At I H IOOAY'Oi ord«i direct Irom CAP by phone oi moil 

l.il In. .Iks I* COD MSA "I M.isI,t< li.u.).- ^ft'"^ 

. .ii.L-is iik ludu .-SpiLllloM 

A.UI >1 '.IlK.sl.HH' S, ll.llKll.1,. 

.in ,.,('()!) C.iM !•• 

.l.l,ll."..S.ll,-~I.IS 



CAP 11 ECTRONICS. IVpt C 

1SS.1 Shulman Ave S.m Jose. CA "5124 

(408)371-4120 

CIRCLE 1 1S ON READER SERVICE CARD 




Compote, D^ion Lobs Z80 DlSk SOf t WaTO 



Cm MM *—* ".jo*, a- 



'unej-or* .«c iwoe 14 



iMd»™l#Wtt,lOw"l «#.W.J*r» «*•«*■ 
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Pascal as a Game 



Volker Raab 



In Creative Computing, we often 
print computer games that are based 
on board games such as Mastermind, 
Black Box, Battleship, or Zone X. 
However, this is the opposite situation. 
Volker Raab in this article describes his 
concept of a board game based on 
PASCAL It looks like it could be an 
interesting and challenging game, 
both to design as well as play. If it leads 
to a commercial product, obviously Mr. 
Raab is entitled to a share of the 
royalties. 



The Pascal board game is quite a 
traditional board game with boxes, 
dice, playing pieces, etc. There is, 
however, one essential difference 
compared to other board games. The 
Pascal board game exemplifies con- 
cepts of modern programming lan- 
guages, i.e. PASCAL. You may ima- 
gine that your playing piece is an 
instruction or, rather, statement, 
counter walking through a program. 
Whenever it's your turn, you will have 
to cast a die and advance the number 

Volker Raab, Ramtenve] 30, DK 8581 Vimtofte. 
Denmark. 



of boxes corresponding to your die- 
cast. Beware! Two different kinds of 
boxes exist! The first kind represents 
simple statements, simple statements 
won't affect you unless you stop at a 
simple statement box at theend of your 
turn. (That's not the way a program 
behaves, but I can't make it a game 
without this rule!). When you stop at a 
simple statement box, naturally you do 
what the statement box says. What 
does a statement box ask you to do? 
There are a lot of possibilities: nothing, 
goto a label (some people, even Wirth, 
still use it), call a procedure or a 
function (whatever that means in this 
game) , delay one or two turns, random 
(get a card from a random stack), 
overflow, input, output, etc. 

So far nothing is really unusual. 
But there's still the other kind box 
called selection boxes. Selection 
boxes are used to determine what way 
your playing piece should go. If you 
take a look at Figure 1 , you'll see what a 
selection box does. Path is just used as 
shorthand for a sequence of boxes, 
statement boxes and selection boxes. 
Selection boxes are represented by 




boxes containing a question mark? 
Obviously all players start at the first 
box, labelled begin, and eventually end 
at the last box, labelled end. But many 
roads (paths with loops and detours) 
lead to Rome! The question mark in the 
selection boxes stands for a condition. 
The figure itself just illustrates the 
general idea of the game, the game 
map would, of course, have to be quite a 
bit more elaborate. There's another 
important difference between selec- 
tion boxes and simple statement 
boxes. Selection boxes affect in 
passing, i.e. whenever you happen to 
pass a selection box, you have to 
choose your path according to the 
condition for the selection box. A 
Pascal "for" statement may be an 
exception, unlike an Algol "for" 
statement. A representation of a Pascal 
"for" statement requires that the 
player, on entrance to the for loop, 
determine how many times the for loop 
is executed, i.e., how many times you 
have to walk through the loop. Figure 1 
represents the main program; it might 
as well represent a procedure or 
function of the main program. A 
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CREATIVE COMPUTING 



Pascal, cont'd... 

procedure can be recursive, i.e., call 
itself. Figure 1, considered as a 
procedure, shows a recursive proce- 
dure call. As a procedure can (and 
should in the game) be called from 
different places, it should be repre- 
sented as an unconnected graph. 
Procedure calls, especially recursive 
calls of procedures, necessitate the 
introduction of a stack. The stack is a 
number of adjacent rectangular boxes, 
numbered from 1 to something suit- 
able, in a corner of the game map. 
When you happen to call a procedure, 
you leave one of your playing pieces at 
the call-statement, another playing 
piece is moved to the first begin of the 
procedure and your playing piece 
placed in the stack moves to the 
stackbox with the next higher number. 
When you finally come to the final end 
of a procedure, your stackpiece moves 
one box backward and you resume 
playing at the box containing the call 
statement. 

How do you win? Being the first to 
reach the final end is no condition for 
victory. I do like fast programs; by far 
the fastest of all reads: program fastest; 
begin end. It does exactly nothing, 
apart from taking time and memory 
from better programs. Most useful 
programs read something and after 
some computation and running to and 
fro some loops write some kind of an 
answer or a result. So that's what the 
game will do. Whenever a player hits an 
input, read or get statement, he will 
receive a point, meaning the program 
has done some reading, maybe it has 
just skipped some garbage or maybe 
some meaningful information. When- 
ever a player hits an output statement, 
he may convert a point to a victory 
point. Each time the program has 
executed an output, write or put 
statement, provided it didn't produce 
just garbage out of the blue, it has 
given us some information, and that's 
why it deserves a victory point. 
Ordinary points may easily get lost due 
to "unkind" statements. 

There is another reason for victory 
points. Loops and procedures should 
not be just detours, some may be good 
and some evil. "Good" loops allow a 
player to receive victory points. 

Alternative: Whenever a player hits 
an input statement he receives not 
points but some cards from a stack; the 
player may determine the number of 
cards (1, 2, 3 maybe up to 6) he wants 
to receive. Statement boxes may affect 
different kinds of cards. Conditions of 
selection boxes may ask for presence, 
absence or number of cards of certain 

FEBRUARY 1980 



nut statements earn a 
victory point, provided a player has a 
card of the kind stated in the output 
statement. The alternative allows for 
some influence on the progress of the 
game and the cards may represent 
variables. The value of a variable could 
be determined by the number of cards 
of a certain kind or by the value of a 
card just as with ordinary playing 
cards. 

Being up to date, the game knows 
about semaphores. Semaphores are 
special boxes placed in a corner of the 
gamemap, together with some or more 
markers. Two statements affect sema- 
phores: signed and wait, semaphores 
may be either open or closed, different 
kinds of semaphores may exist: binary 
semaphores, counting semaphores 
(original) or message semaphores 
(queues). Players may wait for a 
semaphore, i.e., they cannot proceed 
any further until the semaphore gets 
open. 

Signal statements turn binary 
semaphores to open if closed, increase 
the value of counting semaphores by 1 , 
place a suitable variable (record) card 
in the message semaphore box. If 
another player was waiting on that 
semaphore, he (or the first player 
waiting) may now continue. Binary 
semaphores will again get closed, 
counting values will be decreased by 1, 
message semaphores will deliver a 
variable card to the formerly waiting 
player. 

Wait statements have a delaying 
effect if the semaphore is closed, i.e., 
the player hitting the wait statement 
must wait until the semaphore gets 
open, in case other players are waiting 
too, he has to wait until the semaphore 
gets open as many times as there are 
players waiting, including himself. A 
binary semaphore is always either 
open or closed, a counting semaphore 
is open if its value is greater than zero, a 
message semaphore is open if its box 
is not empty. If the semaphore is open, 
a wait statement will just change the 
state of the semaphore the same way 
as mentioned above for a signal 
statement with a waiting player. 

What about deadlocks, stack- 
overflow, variables out of range, etc.? 

I have not designed the game, but I 
certainly would like to play it with my 
kids. A board game needs a lot of 
balancing and design. Careful balan- 
cing might even be able to abolish the 
rule about simple statements (no effect 
when passing). As a game it should not 
be more complicated than the popular 
economic games for children, Mon- 
opoly and similar. If anyone has made 
the game or wants to do it, I would like 
to get some copies for "friends and 
neighbors." O 
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APPLE II or 

APPLE PLUS $995.00 

DC HAYES MODEMS 339.95 
FLOPPY DISK w/cont. 529.95 
APPLE SOFT CARD 159.95 
PASCAL CARD 459.95 

ALF MUSIC 

SYNTHESIZER 249.95 

10 MEGA-BYTE DISK 

DRIVE (for APPLE) 4695.00 



UCATAN 
COMPUTER STORE 



across from Ramada Inn 

PO Box 1000 

Destin, Florida 32541 

(904) 837-2022 or (904) 243-8565 
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DOES YOUR COMPUTER 

SOMETIMES COUGH, SNEEZE OR 

HAVE A SEIZURE? 

It may be suffering from Transiet Glitchitis, 

a cureable digestive disorder. The Blitz Bug 

can bring fast relief from these symptoms in 

less than 50 nano seconds. Available 

without prescription. Use only as directed. 

* No Computer Should Be 

Without One* 

Blitz Bug protects your entire circuit, 

and plugs Into any outlet. 

S1B.95. Two for $35.00 

N.J. Residents add 5% sales tax 

Add $1 .50 shipping&handllng delivery from stock 

Omni Communications Co. , Inc. 

Jackson, New Jersey 08527 
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BARGAIN APPLE SOFTWARE 

with SOUND & GRAPHICS, written bv authentic 
Forest Gnomes in the Jersey Pinelands. Examples: 
Keyboard Organ S9.00 . . . Brain Teaser. Black Box 
or Sub Hunt S3. 50 . . . Go-Moku SS.00 ... and 
LOTS MORE! 

Send a SASE to get your brochure immediately. 
Box 1922. Cherry Hill, NJ 08034. 
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DOMINOS 
A New Approach To An Old Game 




Jeffrey Stec 



At last — a game 
for APL users. 



Dominos is a game written in APL 
which allows you to play the version 
of dominos known as the draw game 
against the computer. The program 
gives the playing rules, but for a more 
indepth view, Milton Bradley's rules 
accompanying the double 6 set were 
used. One note: at the end of around, 
play continues with the next player 
leading off the next round. For all 
rounds except the first, highest 
double starts, or if there are no 
doubles, highest tile starts. For the 
opening round, if there are no doubles 
aredeal is called for. 

Tiles are represented by a vector 
quantity and must be inputted as 
such. Typing 6 6 indicates the double 
6 domino. At the beginning of your 
turn, you will be given a list of op- 
tions. Each -option may occur more 



Jeffrey Stec, 11 Upland Road, Essex Junction, 
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than once such as: 01 146. The option 
is listed as many times as it occurs for 
strategical reasons. To play a dom- 
ino, type its vector numbers. The first 
number is the number being matched 
to the board. For example, if the 
options are 1 5 5 6 and you wish to 
play a 5 6 domino as a five, type 5 6. To 
play the same domino as a 6 type 6 5. 
The computer keys only on the first 
number, again to prevent confusion 
and to aid your strategy. 

Several codes are used through- 
out the program to indicate condi- 
tions such as who goes next, whether 
there's a winner, whether the round is 
blocked, or whether a tile is invalid or 
cannot be played. The standard code 
for a tile which is not playable is a 9 9. 
One example of this is when you must 
draw from the boneyard. 

The board is represented by an nx4 
array where n depends on the number 
ana types of tiles played. Columns 1 



and 3 contain the domino spots while 
columns 2 and 4 contain pointers to 
the rows of the other dominos linked 
to the domino under consideration. In 
this way, the board is reminiscient of 
a doubly-linked list. In the future, a 
playing board can be printed by 
following these pointers. 

You now have all you need to play 
dominos against a computer. One 
note: the computer's strategy is 
simple. It will play the highest total 
points within the highest domino it 
can. Even with this knowledge, I 
challenge you to beat the computer in 
better than 50% of the games you 
play - you won't without lots of 
playing. D 
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PLAY 
DO YOU WANT RULES? <V OR N) 
Y 

YOU ARE ABOUT TO PLAY THE VERSION OF DOMINOS KNOWN AS I Ml 
DRAW GAME. NO, NOT PICTURES!!! THE REASON FOR CALLING 
IT THIS IS THAT IF A PLAYER CANNOT PI. AY A DOMINO, HE MUST 
DRAW ONE FROM A BONEYARD - OF THE AVAILABLE DOMINOS. 
IF THE BONEYARD IS EMPTY, PLAY IS BLOCKED AND THE ROUND 
IS ENDED. ANOTHER WAY TO f Nil IHr ROUND IS FOR EITHER YOU 
OR THE COMPUTER TO RUN OUT OF DOMINOS. WHEN A ROUND ENDS 
THE COMPUTER IS AWARDED THE NUMBER OF POINTS CORRESPONDING 
TO THE SUM OF THE DOMINOS IN THE PLAYERS HAND AND THE 
PLAYER RECEIVES THE SUM OF THE COMPUTERS DOMINOS. 
ANOTHER ROUND IS THEN PLAYED. IN FACT, AS MANY ROUNDS 
AS ARE NEEDED BEFORE EITHER YOU OR THE COMPUTER REACHES 
A PRESET (BY YOU) NUMBER OF POINTS. THAT IS GAME. 
HIT EXECUTE TO CONTINUE 

TILES ARE REPRESENTED BY TWO NUMBERS FOR EACH TILE 
EACH NUMBER CORRESPONDS TO HALF OF THE TILE. FOR EXAMPLE 
4 2 REPRESENTS THE DOMINO WITH 4 SPOTS ON ONE END AND 
2 SPOTS ON THE OTHER. WHEN YOU ARE ASKED TO PLAY A TILE 
YOU WILL BE GIVEN A LIST OF OPTIONS SUCH AS 2 2 4 5 . 
THIS MEANS DOMINOS HAVING A 2, 4. OR 5 MAY BE PLAYED. 
THE DUPLICATION OF A NUMBER MEANS IT IS AVAILABLE TO BE 
PLAYED MORE THAN ONCE. YOU WILL ALSO BE GIVEN A LIST 
OF YOUR DOMINOS. TO PLAY A DOMINO TYPE ITS NUMBERS. 
THE FIRST NUMBER WILL K I HI NUMBER TO MATCH TO THE 
BOARD. TO PLAY A 6 2 WITH THE ABOVE OPTIONS TYPE 2 6. 
IF YOU CANNOT MAKE A MOVE, TYPE 9 9 AND YOU WILL THEN 

DRAW FROM THE BONEYARD GOOD LUCK ' ■ i 

HIT EXECUTE TO CONTINUE 

HOW MANY POINTS DO YOU WANT TO PLAY TO 77 
D 

IS 
YOUR HAND IS 
1 

4 

1 6 

3 3 

4 4 
4 6 

WHAT IS YOUR HIGHEST DOUBLE ?? 

ENTER 9 9 IF YOU DON T HAVE ANY DOUBLES 



4 4 
1 WILL OPEN WITH 6 6 
YOUR OPTIONS ARE: 6 6 6 6 
YOU HAVE THE FOLLOWING 
1 

4 

1 6 

3 3 

4 4 
4 6 

WHAT DO YOU WISH TO PLAY?? 



4 16 



THAT IS NOT 


64 
THAT IS NOT 


4 6 
THAT IS NOT 



A VALID OPTION. 



A VALID OPTION. 



A VALID OPTION. 



PLEASE TRY AGAIN 



PLEASE TRY AGAIN 



PLEASE TRY AGAIN 



0: 

6 4 

THANK YOU 

I WILL PLAY 

6 S 
YOUR OPTIONS ARE: 4 5 6 6 
YOU HAVE THE FOLLOWING 

1 

4 

1 6 

3 3 

4 4 

WHAT DO YOU WISH TO PLAY?? 


6 1 

THANK YOU 

I WILL PLAY 

5 2 

YOUR OPTIONS ARE 12 4 6 
YOU HAVE THE FOLLOWING 

1 

4 

3 3 

4 4 

WHAT DO YOU WISH TO PLAY?? 


4 4 



1 1 



4 6 



THANK YOU. . 
WILL i-Lhi 
4 1 
YOUR OPTIONS ARE: 1 1 : 
YOU HAVE THE FOLLOWING 
1 

4 
3 3 

WHAT DO YOU WISH TO PLAY?? 
Q: 

4 

THANK YOU 

I WILL PLAY 

1 1 
YOUR OPTIONS ARE 1 1 
YOU HAVE THE FOLLOWING 

1 

3 3 
WHAT DO YOU WISH TO PLAY?? 


1 

THANK YOU 

I MUST DRAW FROM THE BONEYARD 



I WILL PLAY 

6 3 
YOUR OPTIONS ARE: 111112 3 4 
YOU HAVE THE FOLLOWING 

3 3 
WHAT DO YOU WISH TO PLAY?? 
□ 

3 3 
THANK YOU 

THE REMAINDER OF MY HAND WAS: 

S 
POINT EARNINGS I OR THIS ROUND ARE AS FOLLOWS: 
COMPUTER FOR A TOTAL OF 
PLAYER 5 FOR A TOTAL OF 5 
I WILL OPEN WITH 4 4 
YOUR OPTIONS ARE: 4 4 4 4 
YOU HAVE THE FOLLOWING 



4 

s 

3 4 

1 4 
5 5 

WHAT DO YOU WISH TO PLAY?? 


4 

THANK YOU 

I WILL PLAY 

4 2 

YOUR OPTIONS ARE 2 4 4 
YOU HAVE THE FOLLOWING 


5 
3 4 

1 4 

5 5 

WHAT DO YOU WISH TO PLAY?? 




THANK YOU 

I WILL PLAY 

2 S 

YOUR OPTIONS ARE: 4 4 S 
YOU HAVE THE FOLLOWING 

5 

3 4 

1 4 
5 5 

WHAT DO YOU WISH TO PLAY?? 


5 5 

THANK YOU 

I WILL PLAY 

5 3 
YOUR OPTIONS ARE: 00034455 
YOU HAVE THE FOLLOWING 

5 
3 4 

1 4 

WHAT DO YOU WISH TO PLAY?? 


3 4 

THANK YOU 

I WILL PLAY 

5 1 
YOUR OPTIONS ARE: 
YOU HAVE THE FOLLOWING 

5 

1 4 



14 4 4 5 
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UHAT DO YOU UISH TO PLAY?? 


S 

THANK YOU 

I MUST DRAU FROM THE BONEYARD 

I MUST DRAU FROM THE BONEYARD 

I MUST DRAU FROM THE BONEYARD 

I MUST DRAU FROM THE BONEYARD 

I UILL PLAY 

6 

YOUR OPTIONS ARE: 0001>»'»'»6 
YOU HAVE THE FOLLOUING 

1 H 

UHAT DO YOU UISH TO PLAY?? 
□ 

1 "» 

THANK YOU 

THE REMAINDER OF MY HAND UAS : 

2 3 
6 6 

3 3 
3 6 

POINT EARNINGS FOR THIS ROUND ARE AS FOLLOUS : 

COHPUTER FOR A TOTAL OF 

PLAYER 32 FOR A TOTAL OF 37 

YOU HAVE DEVASTATED ME... PLEASE UNPLUG ME FOREVER 

DO YOU UANT TO PLAY ANOTHER GAME? <Y OR N) 

N 

THANX FOR PLAYING DOMINOS UITH ME 



VDRAUCD3V 
V TILE*-DRAU 
[13 » THIS FUNCTION DRAUS TILES FROM THE BONEYARD AT RANDOM 
C23 -»<<ltj>BONEYARD)-0>/BLOCK 
C33 TILE*-BONEYARDC<?<ltpBONEYARD> ) ; 3 
C.3 BONEYARD*^ ILE REMOVE BONEYARD 
C53 -»END 

C63 BLOCK 'THE BONEYARD IS EMPTY. 
[73 TILE*- 1 2»9 
C83 END: - 



THE ROUND IS BLOCKED - 



C13 
C23 
C33 



C13 
C23 
C33 
CO 

C53 



VADDCD3V 

V HAND2M1LE ADD HAND 

n THIS FUNCTION ADDS A TILE TO A PLAYERS HAND 
HAND*-HAND.C13 TILE 
HAND2<-HAND 
V 

VADDBOARDC03V 

V B0ARD2*-TILE ADDBOARD BOARD 

it THIS FUNCTION ADDS TO THE PLAYING BOARD 

BOARD* (I +f>BOARD>f>BOARD 

BOARD! ( ltpBOARD) , 1 33*-TILE 

BOARDC(ltpBOARD) , 2 <*3*-0 
END B0ARD2*-B0ARD 



VG0CMPTRCQ3V 

V GOCMPTR 

CI 3 * THIS FUNCTION PLAYS THE COMPUTERS TURN 
C23 IN:TILE«-CTILE 
C33 -»<18««+/TILE>/0K 

CHD I MUST DRAW FROM THE BONEYARD - 
C33 TILE<-DRAU 
C63 -»<18-+/TILE)/BL0CK 
C73 CMPTR«-TILE ADD CMPTR 
C83 »IN 

C93 BLOCK BCODE«-'B - 
C103 -»END 
C 11 3 OKUPDTBRD 
C123 - I UILL PLAY ;TILE 
C133 CHPTR«-TILE REMOVE CMPTR 
C1H3 END: STCODE*- 'P' 
V 

VGOPLYRCD3V 

V GOPLYR 

C13 » THIS FUNCTION EXECUTES FUNCTIONS FOR THE PLAYERS TURN 
C23 IN: 'YOUR OPTIONS ARE: iOPTIONS BOARD 
C33 YOU HAVE THE FOLLOWING - ; PLYR 
CO INPUT 
C53 -»<18l»/TILE>/0K 
C63 TILE»-DRAW 
C73 -»<1B-+/TILE)/BL0CK 
C83 YOU HAVE DRAWN ;TILE 
C93 PLYR«-TILE ADD PLYR 
C103 -*IN 

C113 BLOCK :BCODE«- - B - 
C123 -*END 
C133 OK UPDTBRD 
Cim PLYR*-TILE REMOVE PLYR 
C153 END : STCODE*- - C - 
V 

VHIDBLC03V 

V TILE*-HIDBL;T 

C13 H THIS FUNCTION DETERMINES THE HIGHEST DOUBLE IN THE 

C23 a COMPUTERS HAND 

C33 -»<<+/(CMPTRC,13=CMPTRC;23))"0)/NODBL 

C*»3 T*-r/C13(CMPTRCil3-CMPTRC;23)/C13 CMPTR 

CS3 -»END 

C63 NODBLT*- 1 2 «? 

C73 END: TILE*- T 



C13 
C23 
C33 
C*3 
CS3 
C63 
C73 
C83 
C93 

no: 
C113 
C123 
C133 



VCTILEC03V 
V TILE*-CTILE,HIGH,R,T,A 
« THIS FUNCTION DETERMINES THE COMPUTERS MOVE. STRATEGY 
■ IS AS FOLLOWS: 1) PLAY THE HIGHEST OPTION POSSIBLE C13 
n 2) PLAY THE HIGHEST TOTAL SUM WITHIN THE £23 

* HIGHEST OPTION. "3 

AUtpCMPTR CO 

HIGH*-r/<<< _ l+>7)<OPTIONS BOARD) a ( < "1 + i 7)«CMPTR) >/< *l + > 7) C53 
R*-<v/HIGH=CMPTR)/>A C*3 

TK ( <f/*/CMPTRCR; 3 >«< +/CMPTR) ) a( v/CMPTR«HIGH) )/C13 CMPTR C73 



C13 
C23 
C33 

mi 

CS3 
C63 
C73 



-*<0(<ltpT>/END 

T* 1 2 P? 
END ■» ( < 1 1 . T ) -HIGH) /OK 

T«-»T 
OKTILE«-T 
V 

VDEALC039 
V DEAL; DEALS 
« THIS FUNCTION DEALS DOMINOS AT GAME STARTUP 

DEALS«-28?28 

PLYR*- 6 2 t«DOMINOC;DEALS3 

CMPTR*- ~6 2 tVDOHINOC DEALS] 

DEALS*-6«DEALS 

DEALS*- ~6iDEALS 

BONEYARD*-«tDOMINOC , DEALS3 



C83 

C93 

C103 

Mil 

C123 

C133 



C13 
C23 
C33 
C>»3 
CS3 
C63 



VDESCRIBECmV 
V DESCRIBE 
C13 'THIS WORKSPACE CONTAINS THE NECESSARY FUNCTIONS AND ' C 1 3 
C23 'VARIABLES TO PLAY THE VERSION OF DOMINOS KNOWN AS THE' c2:1 
C33 'DRAW GAME. DOMINOS WAS WRITTEN BY JEFF STEC AT THOMAS' C3J 
CO 'S CLARKSON MEMORIAL COLLEGE OF TECHNOLOGY IN THE SPRING ' CO 
t53 OF 1979 AS A DIRECTED STUDY PROJECT WITH J WILLIAM MARR. 153 
C63 VISITING PROFESSOR OF MATHEMATICS. DOMINOS UAS ' C&:1 
C73 INITIALLY RUN ON AN IBM 5100 UITH APL . ' C7:J 

CB3 ' C83 

C93 TO START YOUR GAME OK DOHINOS, TYPE PLAY' C93 



VHOUTILEC03V 
HOUTILE 
TILES ARE REPRESENTED BY TUO NUMBERS FOR EACH TILE' 
EACH NUMBER CORRESPONDS TO HALF OF THE TILE. FOR EXAMPLE' 
"f 2 REPRESENTS THE DOMINO UITH 4 SPOTS ON ONE END AND' 
'2 SPOTS ON THE OTHER. UHEN YOU ARE ASKED TO PLAY A TILE' 
'YOU UILL BE GIVEN A LIST OF OPTIONS SUCH AS 2 2 H 5 . ' 
'THIS MEANS DOMINOS HAVING A 2. t. OR 3 MAY BE PLAYED. - 
•THE DUPLICATION OF A NUMBER MEANS IT IS AVAILABLE TO BE' 
'PLAYED MORE THAN ONCE. YOU UILL ALSO BE GIVEN A LIST' 
'OF YOUR DOMINOS. TO PLAY A DOMINO TYPE ITS NUMBERS. - 
THE FIRST NUMBER UILL BE THE NUMBER TO MATCH TO THE - 
BOARD. TO PLAY A 6 2 UITH THE ABOVE OPTIONS TYPE 2 6. - 
'IF YOU CANNOT MAKE A MOVE, TYPE 9 9 AND YOU UILL THEN' 
■DRAW FROM THE BONEYARD GOOD LUCK III' 

VINITC03V 

INIT 
a THIS FUNCTION INITIALIZES THE SCORING VARIABLES 

PSCORE*-0 

CSCORE*-0 

WINCOD*-' ' 

BCODE*- ' ' 

STCODE*- ' ' 
i 

V1NPUTCQ3V 
1 INPUT 
n THIS FUNCTION ASKS FOR INPUT AND CHECKS TO SEE IF LEGAL 

UHAT DO YOU UISH TO PLAY?' - 
IN TILE«-Q 
-»<18»+/TILE>/END 
TILE«-TILE LEGAL PLYR 
-»<20l*>/TILE>/END 

THAT IS NOT A VALID OPTION... PLEASE TRY AGAIN' 
<IN 
END : ' THANK YOU 



130 





VLEGALCDJV 




VSC0RECCU7 








7 TILE2«-TILE LEGAL HAND, A, B 


7 


SCORE 








CI] » THIS FUNCTION DETERMINES IF A TILE CAN BE PLAYED 


CI] 


ft THIS FUNCTION DOES THE SCORING AND DECLARES 








C2] -»(2»<pTILE>/ILLEGAL 


C2] 


ft A WINNER IF THERE IS ONE 








C3] -»(»((ltTILE)<OPTIONS BOARD) )/ ILLEGAL 


C3] 


WINCOD*- ° ' 








CO A*-(-*/(*/(HAND-(pHAND>pTILE> ) >i<1 


CO 


PSCORE *-PSCORE+ ( ♦/ , CMPTR ) 








CS] B*-(+/(a/(HAND=(pHAND>p«TILE)>>i«1 


CS] 


CSCORE*-CSCORE+(+/. PLYR) 








C6] -»(AaB> /ILLEGAL 


C6] 


•*( 0-1 tpCMPTR) /EMPTY 








C7] -»END 


C7] 


THE REMAINDER OF MY HAND WAS:' 








C8] ILLEGAL TILE* 10 10 


C8] 


CMPTR 








C9] ENDTILE2«-TILE 


C9] 


EMPTY: 'POINT EARNINGS FOR THIS ROUND ARE AS FOLLOWS:' 








7 


CIO] 


•COMPUTER '.t/.PLYR,' FOR A TOTAL OF ', CSCORE 








VLINKCQ3V 


Cll] 


'PLAYER ';+/. CMPTR; ' FOR A TOTAL OF ' ; PSCORE 








V B0ARD2*-LINK BOARD; POS 


C12] 


-*((PSCORE>GAMEPT)v(CSCORE>GAHEPT))/WIN 








CI] r THIS FUNCTION LINKS THE LAST ITEM ADDED TO THE 


C13] 


♦END 








C2] ft BOARD TO THE CORRESPONDING OTHER ITEM 


cm] 


W IN -t ( PSCORE > CSCORE ) /PWIN 








C3] POSH* < ( (BOARDC; 3] >-lt. TILE) MB0ARDC;>O-0>)/(UtpB0ARD) 


CIS] 


♦(PSCORE CSCORE >/CWIN 








CO -»((POS«0)v(POS-ltpBOARD))/C2 


C16] 


'THE GAME WAS A TIE.... A PLAYOFF ROUND WILL BE HELD - 








C5] B0ARDCP0S;<O*-lf pBOARD 


C17] 


-•END 








C6] -»END 


C18] 


CWIN 'I HAVE WON.... BETTER LUCK NEXT TIME!' 








C7] C2 POSHtC ( (BOARDC; 1 J > = 1 1 . 1 Il.E ) a ( BOARDC , 2 J = ) )/ ( vltpBOARD) 


C19] 


WINCODI-'W' 








C8] B0ARDCP0S;2]*-11pB0ARD 


C20] 


-•END 








C9] END: BOARDC (ltpBOARD) ;2]^P0S 


C21] 


PWIN: YOU HAVE DEVASTATED ME... PLEASE UNPLUG ME FOREVER' 








CIO] B0ARD2«-B0ARD 


C22] 


WINCOD*- 'W' 








7 


C233 


END: 








70PENCQ]7 


7 








V BOARD«-OPEN TILE 




7STARTCQ]7 








C13 « THIS FUNCTION PLACES THE FIRST TILE 


i 


» STCOD*-START;A;B;CHIGH 








C2] BOARD*- 1 1 pO 


CI] 


• THIS FUNCTION STARTS THE ROUND 








C3] BOARDC1; 1 3]«-TILE 


C2] 


BEGIN: DEAL 








CO -»<<lt,TILE)><< "lt,TILE))/END 


C3] 


•♦(STCODE-' ') /FIRST 








CS1 BOARD«-TILE ADDBOARD BOARD 


CO 


-»(STCODE"'C )/CP 








C6] END: 


CS] 


IN2 YOUR HAND IS ; PLYR 








7 


C6] 


ENTER YOUR HIGHEST DOUBLE OR YOUR HIGHEST TILE' 








VOPTIONSCQ]V 


C7] 


'IF YOU DO NOT HAVE ANY DOUBLES' 








V OPTION«-OPTIONS BOARD 


CB] 


PTILE«-0 








CI] ft THIS FUNCTION DETERMINES MOVE OPTIONS 


C9] 


-*(2-pPTILE)/0KS0FAR 








C2] OPTION*-BOARDC (BOARDC ;2]-0>/( i ltpBOARD > , 1] 


CIO] 


THAT IS NOT A VALID ENTRY... TRY AGAIN' 








C3] OPTION*-OPTION , BOARDC ( BOARDC , t 3- ) / ( v 1 1 pBOARD > , 3] 


Cll] 


-»IN2 








E«J OPTION*-OPTIONC*OPTION] 


C12] 


OKSOFARA*- (+/(*/( PLYR«(pPLYR)pPTILE)))><l 








V 


£13] 


BM ♦/(*/( PLYR«(pPLYR)pPTILE)>>l<l 








7PLAYCQ]7 


cm] 


-»(A*B)/IN2 








V PLAY , AGAIN ; BCODE ; BOARD , BONEYARD , CMPTR ; CPTILE ; CSCORE ; GAMEPT 


CIS] 


-•PSTRT 








CI] PLYR,PSCORE;PTILE;RUL,STCODE;TILE;WINCOD INIT 


C1&] 


CP: CPTILE *-HIDBL 








C2] 'DO YOU WANT RULES? (Y OR N)° 


C17] 


-•(18^-f /CPTILE >/CPEND 








C3] RUL*-0 


CIS] 


CHIGH*-ltr+/CMPTR 








CO ■»( 'N'-ltRUD /NORULES 


C19] 


CPTILE*- 1 2 pCMPTRC(CHIGH-+/CMPTR)/(>ltpCMPTR>,] 








C5] RULES 


C20] 


CPEND STCODE*- 'C 








C61 HIT EXECUTE TO CONTINUE' 


C21] 


-•CSTRT 








C7] RUL«-0 


C22] 


FIRST CPTILE*-HIDBL 








C8] HOWTILE 


t.23] 


IN: YOUR HAND IS ' ; PLYR 






■ 9] 'HIT EXECUTE TO CONTINUE' 


C2H3 


'WHAT IS YOUR HIGHEST DOUBLE ??' 






■ id] RUL*-H 


C25] 


'ENTER 9 9 IF YOU DON • • T HAVE ANY DOUBLES' 






Km NORULES HOW MANY POINTS DO YOU WANT TO PLAY TO ?? ' 


C26] 


PTILE*- 1 2 pQ 






■ l:'] GAMEPLD 


C27] 


■•((It . PTILE)-( "It ,PTILE))/ISDBL 






■ 13] GOBCODE*-' 


C28] 


PTILE; ' IS NOT A DOUBLE... 






Hmi BOARD)- 10 


C29] 


-•IN 






■ lS] STCODE*-START 


[301 


ISDBL -»( 18=+/PTILE)/0K 






■ it] -XSTCODE^'C )/PGO 


C31] 


-»(*/((A/PLYR*(pPLYR)pPTILE)-l))/OK 






■ 17] CGOGOCMPTR 


[323 


YOU DO NOT HAVE'; PTILE 






■ lBJ -»(BCODE='B' >/BLOCKED 


C33] 


-•IN 






■ 19] -»(0 = ltpCMPTR)/BLOCKED 


C3H] 


0K:-t((18l<+/CPTILE)v(18H+/PTILE>)/PLAY 






■ 20] PGO GOPLYR 


C3S] 


'I DO NOT HAVE ANY DOUBLES EITHER — REDEAL ' 






■ 21] -»<BC0DE='B' )/BLOCKED 


C36] 


-•BEGIN 






■ 22] -»(0i«ltpPLYR>/CGO 


C37] 


PLAY :-»((18l«+/CPTILE>M18»+/PTILE>> /CSTRT 






■ 23] BLOCKED. SCORE 


C38] 


-»( (18l«-/PTILE>M18-+/CPTILE> >/PSTRT 






■ 24] -«(WINCOD=' >/GO 


C39] 


-»((+/CPTILE)X+/PTILE)) /CSTRT 






■ 253 DO YOU WANT TO PLAY ANOTHER GAHE? (Y OR N) ' 


c*o] 


PSTRT BOARD*-OPEN PTILE 








[26] AGAIN<-0 


cm] 


'OK... YOU OPEN WITH THE '; PTILE 








C27] -»( 'Y'<=ltAGAIN)/GO 


Ct2] 


PLYR<-PTILE REMOVE PLYR 








C28] 'THANX FOR PLAYING DOMINOS WITH ME - 


CO] 


STCODE*- 'P' 








7 


c»"o 


<END 








7REMOVEC01V 


CVS] 


LSTRT BOARD«-OPEN CPTILE 








7 HAND2*-TILE REMOVE HAND 


CtA] 


I WILL OPEN WITH ';CPTILE 








CI] ll THIS FUNCTION REMOVES A TILE FROM A PLAYERS HAND 


C»7] 


CMPTR*-CPTILE REMOVE CMPTR 








C2] HAND«-<X/HAND=(PHAND>«>TILE)/C1] HAND 


[483 


STCODE*- 'C 








C3] HAND«-(j:/HAND=(pHAND>P»TILE>/Cl] HAND 


[49] 


END : STCOD*-STCODl 








t"0 HAND2<-HAND 


V 


l 








7 




7UPDTBRDCDJ7 








7RULESCDJ7 


V 


1 UPDTBRD 








7 RULES 


CI] 


ft THIS FUNCTION UPDATES THE BOARD 








[1] 'YOU ARE ABOUT TO PLAY THE VERSION OF DOMINOS KNOWN AS THE 




WITH THE TILE IN PLAY 








t2] 'DRAW GAME. NO. NOT PICTURES!'! THE REASON FOR CALLING' 


[23 


BOARIlt-TILL ADDBOARD BOARD 








[3] IT THIS IS THAT IF A PLAYER CANNOT PLAY A DOMINO. HE MUST 


[33 


BOARD*-LINK BOARD 








:*3 DRAW ONE FROM A 'BONEYARD'' OF THE AVAILABLE DOMINOS. 


CO 


-»(( 1 1. TILE )<•( "It, TILE ))/NODBL 








tS] 'IF THE BONEYARD IS EMPTY, PLAY IS BLOCKED AND THE ROUND' 


CS] 


BOARDOILE ADDBOARD BOARD 








t«] 'IS ENDED. ANOTHER WAY TO END THE ROUND IS FOR EITHER YOU 


C6] 


NODBL 








i7) 'OR THE COMPUTER TO RUN OUT OF DOMINOS. WHEN A ROUND ENDS' 


s 


I 








C8] 'THE COMPUTER IS AWARDED THE NUMBER OF POINTS CORRESPONDING'. 


ft THE DOMINO VARIABLE FOLLOWS. THIS IS THE ONLY 








C9] 'TO THE SUM OF THE DOMINOS IN THE PLAYERS HAND AND THE ' 




n GLOBAL VARIABLE USED 








CIO] PLAYER RECEIVES THE SUM OF THE COMPUTERS DOMINOS. 












Cll] 'ANOTHER ROUND IS THEN PLAYED. IN FACT. AS MANY ROUNDS' 




DOMINO 








[12] 'AS ARE NEEDED BEFORE EITHER YOU OR THE COMPUTER REACHES' 





00000111111222223333444556 








ll3] 'A PRESET (BY YOU) NUMBER OF POINTS. THAT IS GAME.' 
7 

13 


1 


234S6123456234563456456S66 








1 





















For North Star Systems 



A Master Disk Directory 



Introduction 

Get out your collection of North 
Star minidisks containing program and 
data files. If you have ever tried to find a 
particular file on one of several disks 
and had to search through many 
unsorted directories, the procedures 
discussed in this article will save you a 
lot of time and hair pulling. 

The Problem 

A (single density) North Star 
minidisk can contain up to 64 files. The 
directory for each disk resides on the 
first four sectors of the disk. Since the 
structure of the data in the directory is 
fixed, it does not contain codes for data 
types and thus cannot be read by 
Basic as a data file. Some indirect 
method must be used to access the 
directory listings to place them in a 
master directory. 

A Solution 

The technique described here is to 
LOAD the directory directly into RAM 
and then use Basic's EXAM (PEEK in 
Microsoft) function to gain access to it. 

Each directory listing consists of 
16 bytes: 

bytes 0-7 name of file 

bytes 8-9 disk address of file 

bytes 10-11 size o( file 

byte 12 type of file 

bytes 13-15 additional file information 

If byte contains a space (ASCII 32) 
then the directory listing has been 
deleted and should not appear in the 
master directory. 

Rinaldo Prisco. Assoc Professor. State University 
of New York. Oswego. NY 13126. 

Program Listing 2 



Rinaldo F. Prisco 



10 


REM - SORT MASTER DIRECTORY - 


20 


REM 




30 


DIM R$(7700) ,A*(14 


,B$(14) 


40 


OPEN #0, "MASTER" 




50 


READ #0,RS 




60 


N=LEN(R*)/14:M«N 




70 


M-INT(M/2) :IF M-0 THEN 1 60 : J-1 :K-N-M 


80 


I-J 




90 


L-I+M 




100 


A*-R*(14*(I-1) + 1, 


I4*(I-1)+14) 


110 


B$-R»(14*(L-1)+1, 


I4*(L-1)+14) 


120 


IF A$<B$ THEN 150 




130 


R$(14*(I-1) + 1)-B» 


sR$(14*(L-1)+1)-A» 


140 


I=I-M:IF I>0 THEN 


90 


150 


J-J+1iIF J>K THEN 


70 ELSE 80 


160 


WRITE #0%0,R* 




170 


CLOSE tO 






Program Listing 1 



10 
20 
30 
40 
50 
60 
70 



110 
120 
130 
140 
150 
160 



MASTER FILE DIRECTORY 

Rinaldo F. Prisco 

Mathematics Dept. 

SUNY, College at Oswego 

Oswego, NY 13126 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

80 DIM R$(7700) 
90 A1=39936:M$-"MASTER" 
100 REM MEMSET 39935 FOR 32K SYSTEMS 

I "Perform the following steps in the order listed:":! 

ITAB(10),"1. BYE <RETURN>" 

ITAB(10),"2. Load disk with wanted directory in drive." 

!TAB(10),"3. RD 9C00 4 <RETURN>" 

1TAB(10),"4. JP 2A14 <RETURN>" 

!TAB(10),"5. CONT <RETURN>" : ! 
170 STOP 

180 REM WHEN LAST DISK DIRECTORY HAS BEEN 
190 REM PROCESSED ENTER 999 FOR DISK #. 
200 INPUT "What is the Disk #? ",F:N$-CHR$ (F) 
210 IF F-999 THEN 340 
220 J-0:A-A1 

230 IF EXAM(A)»32 THEN 300 
240 REM 

250 FOR 1=0 TO 12 
260 X-EXAM(A+I) 
270 R$(14*K+I+1)=CHR$(X) 
280 NEXT I:R$(14*K+14)-N$ 

290 K-K+1:IF K<550 THEN 300:!"NO MORE ROOM!":GOT0 340 
300 A«A+16:J-J+1 
310 IF J<64 THEN 230 

320 1'Scan complete. Ready for next file." 
330 l"The master list contains", K, " entries. ": GOTO 110 
340 1 "Place disk to hold the Master Directory in drive. ":STOP 
350 F=INT( (7*K+50)/128)+1 
360 IF FILE(M$)=-1 THEN 370:DESTROY M* 
370 CREATE M*,F 
380 OPEN 10, MS 
390 WRITE #0,R$(1,14*K) 
400 CLOSE tO 
410 !"A11 is well. There are",K," entries. Bye." 



Program Listing 3 



10 REM - PRINT MASTER DIRECTORY - 

20 REM 

30 DIM RS (7700) 

40 OPEN #0, "MASTER" 

50 READ #0,R$ 

60 INPUT "HARD COPY? ",Y$:IF Y$(1,1)-"Y" THEN P-2 

70 i#P,TAB(4) ,"* **MASTER DISK DIRECT" 

80 !#P," O R Y * * *":1#P: !#P:!#P: IIP 

90 FOR 1-1 TO LEN(R$)/14 

100 Q-14MI-1) :l#P,R*(Q+1,Q+8), 

110 L-ASC(R»(Q+9)) :H»ASC(R$(Q+10) ) 

120 l#P,%4I,16*16*H+L, 

130 L-ASC(R$(Q+11)) :H-ASC(R$(Q+12)) 

140 l#P,%4I,16*16*H+L, 

150 1#P,%4I,ASC(R*(Q+13)) ,ASC (R* (Q+1 4) ) , 

160 IF I-INT(I/2)*2 THEN IIP ELSE !#P,TAB(35), 

170 NEXT I 



132 



CREATIVE COMPUTING 



i rectory, confc 



Program Listing 4 



Procedure 

Set aside 1024 bytes of RAM to 
receive each directory file. (In my 32K 
system I used the top 1024 bytes.) Use 
the MEMSET function if necessary. 
Load the main program (see Listing 1) 
and RUN it. It will list all required 
directions at the proper point in the 
program. They must be followed 
carefully. This involves a close inter- 
action between BASIC, DOS and the 
operator. The program will STOP at 
times to allow you to take the required 
actions: jump to the DOS, load the disk 
in the drive, read the directory to RAM, 
get back to Basic, CONTinue the 
program. In particular, note the North 
Star DOS command "RD 9C00 4." It 
will read the first 4 blocks of the disk 
into RAM beginning at address 9C00 
(HEX). 

The Main Program 

The program in Listing 1 has been 
dimensioned for a 32K system which 
uses the last 1024 bytes for storage of 
the disk directories in RAM. It has a 
capacity of 550 entries. If your system 
contains a different amount of mem- 
ory, adjust the DIMension of RS in line 
80 and change the upper limit of the 
cumulative count, K, in line 290 
accordingly. Some systems may re- 
quire several secondary master files 
which may be merged at a later time. 

Secondary Programs 

Three related programs are also 
listed. The program in Listing 2 will sort 
the master file (about 12 minutes for 

Some systems may re- 
quire several secondary 
master files which may 
be merged at a later time. 

550 entries on an 8080). Program 3 will 
print the master directory to the screen 
(P=0) or printer (P=2) in the format 
described below. Program 4 is pro- 
vided for those systems without a 
printer. It will search the sorted 
directory for any file names that begin 
with the characters returned in the 
INPUT statement in line 50 (very fast). 

Master Directory Listings 

Each listing in the printout of the 
master directory consists of the name 
of the file followed by four numbers. 
The first three are the same as the first 
three in the standard North Star 
Directory: disk address, number of 
sectors, and type of file. The fourth 
number is the number of the disk 
containing the file. Two listings appear 
on each line (see example). n 



10 REM - SEARCH MASTER DIRECTORY - 

20 REM 

30 DIM RK7700) 

40 OPEN #0, "MASTER": READ #0,R$:CLOSE #0 

50 INPUT "ENTER FILE NAME: ",N$:I 

60 B-1:E=LEN(R$)/14:N-LEN(N») 

70 K-INT((B+E)/2) :K$»RJ ( 14* (K-1 ) +1 , 14* (K-1 ) +N) 

80 IF N$=K$ THEN 120 

90 IF B-E THEN 1 1 

100 IF N$<K$ THEN E=K-1 ELSE B-K+1 :GOTO 70 

110 INI," IS NOT IN THE MASTER FILE.":GOTO 280 

120 FOR I-K-1 TO 1 STEP -1 

130 IF N$OR*(14*(I-1)+1,14*(I-1)+N) THEN EXIT 150 

140 NEXT I 

150 B-I+1 

160 FOR I-K+1 TO LEN(R$)/14 

170 IF N*OR*(14«(I-1)+1,14*(I-1)+N) THEN EXIT 190 

180 NEXT I 

190 E-I-1 

200 FOR I-B TO E 

210 Q=14*(I-1) t l#P,R$(Q+1,Q+8), 

220 L=ASC(R$(Q+9)) tH-ASC (R$ (Q+1 0) ) 

230 !IP,%4I,16*16*H+L, 

240 L=ASC(R|(Q+11)) tH-ASC (R$ (Q+1 2) ) 

250 l#P,%4I,16*16*H+L, 

260 l#P,%4I,ASC<R|(Q+13)),ASC(R»(Q+14)) 

270 NEXT It li I 

280 INPUT "DO YOU WANT ANOTHER SEARCH? ",Y» 

290 IF Y$(1,1)-"Y" THEN 50 



INKEYR 


160 


3 


2 


22 


INSERTS 


277 


5 


2 


25 


INTVERSE 


155 


6 


2 


9 


INTVERSE 


216 


6 


2 


2 


INVERSE 


27 


5 


2 


2 


INVERSE 


79 


5 


2 


4 


INVERSES 


87 


2 


2 


6 


INVNORM 


147 


1 


2 


7 


JOEY 


99 


1 


2 


2 


JOEY 2 


100 


1 


2 


2 


KCYCLES 


311 


2 


2 


14 


KLINGON 


109 


8 


2 


4 


KLINGON 


140 


8 


2 


2 


KLINGON 


161 


8 


2 


9 


LCC 


99 


2 


2 


7 


LEFT 


100 


2 


2 


1 


LEFT 


110 


2 


2 


3 


LENTILS 


24 3 


2 


3 


3 


LETTER1 


274 


5 


3 


16 


LETTER2 


279 


5 


3 


16 


LETTER2 


180 


5 


3 


19 


LETTER2 


212 


5 


3 


22 


LINEMOD 


185 


2 


2 


12 


LINEMOD2 


187 


2 


2 


12 


LINEMOD3 


219 


3 


2 


12 


LINKS 


270 


1 


2 


25 


LMASTER 


128 


4 


2 


27 


LMASTER2 


173 


6 


2 


27 


LP1 


101 


7 


3 


12 


LUNAR 


175 


12 


2 


4 


M. WORDS 


187 


12 


3 


4 


M1 


135 


4 


2 


9 


M158 


79 


10 


3 


3 


MACHINE 


133 


2 


2 


9 


MARKOV 


119 


7 


2 


14 


MASTER 


137 


36 


3 


27 


MASTERS 


133 


3 


3 


14 


MATCH 


199 


12 


2 


4 


MATHCAL 


122 


5 


3 


22 


MATMOD 


84 


3 


2 


2 


MATRIX 


181 


2 


2 


2 


MATRIXM 


101 


3 


2 


2 


MEAN 


285 


3 


2 


19 


MEAN 


76 


2 


2 


7 


MEETINGS 


142 


3 


3 


3 


MEMORY 2 4 


147 


2 


2 


4 


MEMORY 3 2 


149 


2 


2 


4 


MGMTSCI 


295 


2 


3 


12 


MLABEL 


291 


1 


2 


16 


MMIND 


62 


4 


2 


4 


MMIND 


116 


4 


2 


2 


MMIND 


126 


7 


2 


14 


MMIND 


191 


4 


2 


17 


MMV2 


151 


5 


2 


16 


MMV3 


156 


5 


2 


16 


MMVIDIO 


148 


3 


2 


16 


MODIFY 


199 


2 


2 


11 


MOVDATA 


95 


2 


2 


22 


ND 


113 


2 


2 


7 


ND2 


122 


8 


2 


7 


NEDIT 


97 


25 


2 


22 


NEDIT2 


207 


24 


2 


16 


NEWTON 


182 


2 


2 


9 


NKLINGON 


260 


7 


2 


9 


NKLINGON 


226 


7 


2 


2 


NORM 


249 


3 


2 


9 


NORMALD 


111 


2 


2 


7 


OND 


117 


5 


2 


7 


OTTER 


268 


19 


3 


22 


OTTER 


199 


10 


2 


19 


OTTER2 


319 


8 


3 


22 


OTTERD 


209 


9 


2 


19 


OTTERDS 


221 


13 


2 


19 


OTTERV 


240 


12 


2 


19 


OTTERW 


291 


10 


2 


19 


OTTR 


241 


10 


3 


22 


P1000 


62 


4 


3 


2 


PARALLEL 


171 


2 


2 


2 


PASCAL 


4 


2 


2 


2 


PASCAL 


185 


1 


2 


9 


PCLET2 


183 


5 


3 


26 


PCLETTER 


225 


4 


3 


22 


PCOTTER 


307 


10 


2 


19 


PERIODS 


130 


3 


2 


6 


PHIINV 


201 


5 


2 


7 


PHONENUM 


32 


10 


3 


3 


PLIST 


209 


2 


2 


18 


PLOT 


73 


4 


2 


4 


PLOT 


87 


4 


2 


2 


POINTERS 


281 


2 


2 


18 


POLY 


75 


3 


2 


9 


POLY 2 


78 


3 


2 


9 


POWERS 


37 


2 


2 


2 


PRES2 


45 


2 


2 


2 


PRES4 


47 


5 


2 


2 


PRIMES 


61 


1 


2 


2 


PRIMES 


84 


1 


2 


4 


QEDIT 


319 


20 


2 


12 


QEDIT 


110 


20 


2 


16 


QEDIT 


171 


20 


2 


17 


QUEUE 


119 


2 


2 


27 


QUOTIENT 


69 


3 


2 


9 


R375 


193 


1 


2 


3 


RACE 


189 


10 


2 


19 



Sample Printout 
Sample printout of the Master Disk Directory 
(taken from the middle of a 5-page list of 550 files) 
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puzzles & problems 




erlin would like to thank all of our readers who have written in to point out the 
fact that there is more than one solution to the puzzle called "Plato's Cube" 
which appeared in the August issue of Creative Computing. There are, in fact, 
an infinite number of solutions to this problem. Merlin just forgot to mention it 
(so he says). Anyway, he appreciates the time and energy expended by our 
readers on behalf of this column. Keep up the good work! 

Don't forget to send in your favorite puzzles. If Merlin uses your puzzle he will 
send you a free copy of one of his books. 



o 



A Somber Choice 

ur first problem deals with a hunter who arrives at his cabin deep in the woods on a cold and grey 
afternoon in the middle of winter. In the cabin he has a pipe, an oil lamp, and a wood burning stove. 
Unfortunately, he only has one match. Which item should he light first? 







A Sweet Problem 

his is indeed a "sweet" problem. One afternoon we were all gathered in Merlin's office 
for a coffee and cake break. On a cake server was a large, round, plain cake. "Looking 
at that cake reminds me of an old puzzle" said Merlin. "Everything reminds you of an 
old puzzle" was the instant response from around the table. "There are eight of us 
here at the table" went on Merlin. "Can anyone tell me how to go about cutting that 
cake so that we will have eight pieces, all of the same 
size and shape? The only stipulation I make is that the 
cake must be divided using only straight cuts with knife. 
Does the "old puzzler" hear any "new" answers from 
around the table?" 



THE SPHINX 




A) What number gives the same result whether 
you divide it by 5 or deduct 5 from it? 

B) Which candles burn the longer, wax candles or tallow candles? 

C) What kind of a clock shows the exact time of day twice a day, but 
is wrong at all other times? 

D) What is bought by the yard yet is worn by the foot? 

E) How far can you go into the woods? F) Why is Ireland 
the wealthiest country in the world? 



Answer* on page 1 02. 



(These riddles are from Merlin's Puzzler #1) 
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The Five Pairs Puzzle 

ay out a row of ten cards on the table. Starting with any card, pick it up and move it left or right 
over the next two cards in the row and place it on top of the third card. You now have a pair. Next, 
pick up another single card and pass it left or right over the next two cards in the row (a pair 
counts as one card), and place it on the third single card. You are to continue in this manner until 
you have five pairs upon the table. 

(This puzzle is from Merlin's Puzzler #2) 




H 



A Tricky Test 



ere is a problem to test your reasoning powers. A speedy answer is a definite plus. We have taken 
the numbers 1 through 14 and placed them into three boxes according to some scheme thought 
up by Merlin. Your puzzle is to figure out what this scheme is and to place the next three 
numbers, 15, 16, and 17, into the correct boxes. 
Ready, on your mark, get set. go! 



Box1 



Box 2 



Box 3 



°8 3 9 6 




2 5 JO 

12 13 




Some English Anagrams 



ach of the following five sentences is an anagram hiding the name of a famous man of 
England. By rearranging the letters in each sentence you will discover their identities. 



(A) We all make his praise. 
(C) Will it harm, O hag? 
(E) Throw sword. 



(B) Dig over Tom's hill. 
(D) John's ready soul. 



8 

8 

8 

88 

888 

1,000 



T 



„,:„,..,-.,- The Rhino's Riddle 

tin's Puzzler, Ru- 
pert presented a puzzle 
wherein the puzzler was 
required to arrange eight 
8's so that when they are 
added up they will total 
1,000. The answer we 
gave is printed here. One 
of our valued readers, 
after pondering and solv- 
ing this problem, has 
come forward with two 
more solutions to this 
problem. This time we 
want two mathematical 
expressions, using eight 
8's, that equal 1,000. 

□□□□□□□□□□□□□□□□□□a 

hat's it for this month, folks. I hope that you have enjoyed the 
mixed bag of problems that Merlin has provided. Also, don't 
forget to send in your favorite puzzles. Your Ed)tor; Cnar|es Barry Townsend 



(This puzzle is from Merlin's Puzzler #2). 
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DISK EXPANSION PACKAGE 

This package includes everything necessary to 
add disk capabilities to your TRS-80. To buy 
everything in this package would normally cost 
$1100 at your local Radio Shack store. We start 
with the Radio Shack expansion interface and add 
16K RAM. You also receive a Percom 40-track disk 
drive with a dual drive cable. To start you off right, 
we've added the NEWOOS (40-track) disk 
operating system and a box of BASF diskettes. 
Also, the Percom data separator, the component 
which Radio Shack forgot. 
SAVE $181.00 




6 South Street ■ Milf ord, New Hampshire 03055 ■ (603) 673-51 44 



SMALL BUSINESS PACKAGE 

An ideal starter package for the small business. 
Includes a TRS-80 with 16K RAM and Level II 
BASIC, an expansion interface with an additional 
16K RAM installed, two Percom disk drives -with 
cable and data separator, NEWDOS disk 
operating system (40 track version) and the Cen- 
tronics 730 line printer. £2799 QR 
SAVE $579.00 W W,W 



$899.95 



DELUXE EXPANSION PACKAGE 

This package includes a 32K expansion interface 
with the Percom data separator installed, two Per- 
com TFD-100 disk drives and a 4-drive cable, 
NEWDOS + operating system and 2 boxes of 
BASF diskettes. 




SAVE $354.00 



$1449.95 



V 



TOLL-FREE 
ORDER 

1-800-258-1790 




r:»w3 



TRS-80 COMPUTERS: 

Level-I 4K 

Level -I 16K, w/keypad 

Level-ll 4K 

Level-ll 16K 

Level-ll 16K, w/keypad 

PRINTERS: 

Line Printer III 
Centronics 779-2 
Line Printer II 
Centronics 730 
Centronics P1 * 
Quick Printer II 
QP-ll Exp. Int. Cable 
* Cable required 



LIST 
PRICE 

$499 
$729 
$619 

$849 



$1999 

$1598 

$999 

$999 

$499 

$219 

$20 

$39 



OUR USED 
PRICE OFFER 

$449 
$659 
$559 
$669 
$769 




DELUXE BUSINESS PACKAGE 

Includes all the necessities for a small-to-medium 
size business to become computerized. Includes 
a Level II TRS-80 with 16K RAM installed and 
modified to display upper and lower case letters 
with Electric Pencil, a 32K RAM expansion inter- 
face with the Percom data separator 
installed. three Percom TFD-10 disk drives and a 
4-drive cable, a Centronics 779-2 tractor feed 
printer, a 40-track NEWDOS and Electric Pencil 
Word Processor software. We have even added a 
system desk and printer stand. $3799 95 

SAVE $628.00 *o#»».»o 




$350 
$450 
$475 



$1849 
$1095 

$899 

$419 

$197 

$18 

$35 



$655 
$545 
$545 

$250 
S100 



USED 
PRICE 



$500 
$625 
$675 



$850 

$750 
$750 
$358 
$150 



LIST OUR USED 

EXPANSION INTERFACE: P*'CE PRICE OFFER 

OK $299 $269 $165 

16K $448 379/403 $245 

32K $597 479/537 $325 



USED 
PRICE 
$230 
$340 
$440 



DISK DRIVES: 

Percom, TFD-100, 40-track 
Percom, dual TFD-100 
Percom, TFD-200, 77-track 
2-drive cable 
4-drive cable 



Radio Shack, 
Radio Shack, 





1, 2, 3 



<s, ^ 

^3^ 5^c COD orders require 
^J^ 25% cash deposit 

-.^v 5^C Prices subject to change 
»<kN»y* 3fCPrices do not include shipping 



ACCESSORIES: 
Telephone Interface 
16K Memory Kit 
16K Memory Kit for E.I. 
RS232-C Interface 
TRS-232 Interface 
Data Dubber 



$499 
$399 



$199 
$99 



$399 
$795 
$675 
$29 
$39 
$469 
$459 



$290 
$270 



$100 



$179 
$99 
$95 

$89 $55 

$49.95 
$49.95 



$390 
$370 



$150 
$75 



NO SUBSTITUTIONS ON PACKAGE PRICES 
'Radio Shack and TRS 80 are tradamarks of Tandy Corporation. 
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NEW SOFTWARE! 



Original ADVENTURE (Microsoft) 

$29.95 

Galactic Empire 1 6K L II $1 4.95 

Allan Invasion 1 6K L II $ 9.95 

Kriagsplal (wargama) 18K L II . $ 7.95 
Oil Baron 16K L II $7.95 



Casino Anthology 1 6K L 1 1 . . . . $ 7.95 
TRS-80 Opera Theatre $ 9.95 

Print Spooler (Disk). $24.95 

Floppy Disk Diagnostic (Disk) $24.95 
File Manager 80 $49.95 



COMPLETE IN 
FEBRUARY SOFTSIDE! 

Simulation of flying the United 
States shuttle. The ultimate 
flight simulation! Based on ac- 
tual flight characteristics and In- 
strument display of the space 
shuttle. 



CO 

UJ 



CO 
UJ 

5 

< 



CO 
CO 
UJ 



CO 



File Manager SO by Nepenthe. *49 95 32K Disk 
Directory 16K Disk $9 95 
Automated Disk Directory (14.99. 32K 
Cassette. Requires NewDOS 

Electric Pencil by Michael Shrayer. Powerful 

machine language word processing system. 

Laval II, 16K tap* ■ $100; Disk version - $150 

Level III BASIC by Microsoft. $49.96 

NEWDOS by Apparat $49.95 

NEWDOS + by Apparat $99.95 

Machine Language Monitor by Small Systems 

Software. Level II. 16K $26.95 

Renumber by Lance Mlcklus. Laval II, available 

in 16 through 4BK (specify whan ordering) $7.95 

Renumber source Hating $20.00 



Three Monitors for Disk by Small Systems Soft- 
wars. Disk for 16 through 4SK (all In one) $29.95 
KVP Extender by Lance Mlcklus. Tape • $29.95; 
Disk • $34.95 

KVP 2S2 by Lance Mlcklus - KVP adapted for the 
TRS 232 Taps ■ $29.95 
STS0 Smart Terminal Laval II, 16K $49.95 
STS00 Smarter Terminal for disk systems. 
$79.95 

Micro Text Editor by Don Coons. Laval II, 4K or 
16K(9.95 

Tsil-eo by Frank B. Rowlett. Jr. For 32K disk 
systems $69.96 

SOSO-ZSO Conversion Laval II, 16K $14.96 
STAD Trace Monitor 16, 32 and 48K $24.95 



Level I In Level II by Apparat. Level II, 16K $15.00 
Fortran by Microsoft 32K ■ 2 Disks. New low 
price $150.00 (Includes macro-assembler.) 
Spool will print an ASCII file to a parallel Una 
printer at the same time you are using your com- 
puter for another program. For 32K Disk 
Systems only. Will NOT work with NEWDOS. 
(2.3 or VTOS 3.0 OK) On cassette $19.95, on Disk 
$24.95. 



r— GREAT NEW BOOK! 



TRS-au DOS and Other Mysteries by 
Harvard Pennington, $19.05. 



TRS-80 Opera Theatre Magnificent sound! by 

Richard Taylor. $9.95 

Challenge Word game with sound. By Richard 

Taylor $9.95 

Oil Baron by Paul Knechtel $7.95 

Galactic Empire by Douglas Carlston $7.96 

Casino Anthology Slot Machine, Stud and Draw 

Poker $7.95. 

Allen Invasion $9.95 

Concentration by Lance Mlcklus. Level II, 16K 

$7.95 

Amsiln' Masse by Robert Wallace. Level II, 16K 

$7.95 

Tycoon by David Bohlka. Level II, 16K $7.96 

S Games tor Preschool Children by George 

Blank. Level II, 16K $9.95 

Space Battles by Level IV, Level II. 16K Tape or 

32K Disk, Tape -$14.95. Disk • $19.95 

Stsr Trek 111.4 by Lance Micklus Level II. 16K 

$14.95 



Snake Eggs by Lao Christopherson. With sound 

- Laval II, 16K $14.95 

Life Two by Leo Christopherson. With sound 

•Laval II, 16K $14.96 

Android Nlm by Lao Christopherson. With 

sound • Laval II, 16K $14.95 

Cubes by Lao Christopherson Laval II, 16K $9.95 

Bee Wary by Lao Christopherson. with sound. 

Level II, 16K, $14 95 

Mastermind II by Lance Mlcklus $7.96 

Mastermind II • Source List 420.00 

X-WIng II by Chris Freund. Laval II, 16K $9.95 

Talpan by Art Canfll. Level II, 16K $9.95 

Sargon Cheea by Dan and Kathe Spracklen 

Level II, 16K $19.95 

Sargon II by Dan and Kathe Spracklen. Level II, 

16K. $29.95. 

Pork Barrel by George Blank. Level II, 16K $9.96 

Kamlkasa by Russell Starkey. Laval II, 16K $7.95 

Bridge Challenger Laval II, 16K, $14.95. 



16K Laval II taps 
$14.95 each 

1.2, and 3 on disk $39.96 
4, 5, and 6 on disk $39.(6 



Adventures by Scott Adame 
Adventurelsnd 
2 Pirates Cove 
S.MIssion Impossible 

4. Voodoo Castle 

5. The Count 

6. Strange Odessey 

7. Fun House 
8 Pyramid Of Doom 

'Round the Horn by George Blank. Laval II, 16K 
$9.95 

Barricade by Small Systsms Software. Machine 

Language (9.95 

Journey To The Canter Of The Earth by Greg 

Hassett. Level II. 16K Tape (7.95 

Pentomlnoes by John Adamson. Level II, 16K 

(7.95 

Mean Checkers Machine by Lance Mlcklus. 

Laval II, 16K; tape, (19.96; disk $24.95. 

Krlegsplel by Ron Potkln. Level II. 16K, $7.96. 



Inventory Syatem II.3 by M. Kellehar. Improved 
version, $79.95 

Inventory 'S' by Roger W. Robltallle, Sr. Level II, 
16K Tape -$24.95; 32K Disk ■ $69.96 

Payroll by Stephen Hebbler. For disk systems. 
32K $39 95 



Accounts Receivable II by S. Hebbler. 32K disk 

systems with invoicing. $69.95 

Appoin t ment Log by Michael Kellehar. Laval II, 

16K(9.96 

Mall Llat II by Roger W. Robltallle, Sr. 32K disk 

systema $99.95 



H bv R W 
Robltallle, Sr. Level II, 16K. With journal $36.95 
disk, $31.95 tape. $29.95 disk. $24.95 tape. 
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Math Drill by K. L. Brown. Level II, 16K (4.95 

RPN Calculator by Russell Starkey. Level II, 16K 

(9.95 

Ham Radio by Michael Kdleher. Level II, 16K 

$9.95 

Hiaiograph/Scattergram by Gary S. Breschlnl. 

Level II. 16K $9.95 



Sanson Handbook by Dan & Kathe Spracklen. 
$14.95 plus $1.00 shipping and handling 
The BASIC Handbook by Dr. David A. Lien. 
$14.95 plus $1 

ZS0 Instruction Handbook by Scelbl Publica- 
tions $4.95 plus $1 shipping and handling 
Learning Level II by David A. Lien. $15.96 plus $1 
Z SO Software Gourmet Guide and Cookbook 
from Scelbl. $14.95 t $1. 
The Little Book Of BASIC Style by John 
Nevlson. (5.95 plus (1 

TRS-60 Assembly Language Programming by 
William Barden, Jr. (3.95 plus (1 shipping 
Introduction to TRS-SO'Graphlce by Don Inman. 
(7.95 plus (1 



Amateur Radio advanced version lor 32K disk 

$24.95 

Electronics Asaletant by John Adamson. Laval 

II. 16K $9.96 

Pretllght by Stephen Hebbler. Level II, 16K 

$20.00 



TO ORDER: 

IMPORTANT: 

• PRICES DO NOT INCLUDE SHIPPING. 

• All COD'S or special delivery orders 
are a minimum of $5 for special han- 
dling. 

• Whan ordering Fortran/Assembler, 
add $5.00 for chipping. 

• Prices subject to change without 
notice. We are not responsible for 
typographical errors 

1-800-258-1790 

CALL TOLL-FREE 
(SAM - 9PM EST.) 

TRS-80 Is a registered trademark 
Radio Shack and Tandy Corporation 
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Baalc Statlatlca by Steve Relsser. Level II, 16K 
$20.00 

Drill Masters by Computer Graphics - specify ti- 
tle desired. Level II, 16K $7.95 aa. German, Rus- 
sian, Italian, Spanish, or Music Theory 

Keyboard by John Adamson. Level II. 16K $9.95 




ASK 
FOR OUR 
FREE CATALOG! 




Correspondence is welcome. 
Letters with interesting quest- 
Ions and ideas will be used in the 
column along with a response. 
No personal replies can be 
made. Send to: David Levy, 104 
Hamilton Terrace, London NW8 
9UP, England 



David Levy, our newest col- 
umnist, Is a noted authority in the 
field of intelligent computer 
games. He may be best known for 
the "Levy Wager" in which he bet 
several leading Al researchers 
(including Prof. John McCarthy of 
Stanford University) that he could 
defeat any chess-playing program 
developed within ten years. Mr. 
Levy recently collected one thou- 
sand British pounds on the bet but 
also faced close competition from 
very sophisticated chess-playing 
programs. He now offers $1000 to 
anyone whose chess program can 
beat him before 1984. 

In this issue Mr. Levy begins 
with a series on programming 
Intelligent computer games on a 
microcomputer. We are sure our 
readers will appreciate his insight 
Into the development of practical 
and sophisticated game-playing 
programs. We welcome his addi- 
tion to our staff of contributing 
editors and join in his request for 
ideas and questions from our 
readers. —SN 



Introduction 

Games are fun, but some games 
are more fun than others, depending 
on your taste. It has long been 
recognized that the type of mind 
required to play good chess, bridge, 
backgammon or poker is also likely 



to be adept at solving crossword 
puzzles and writing computer pro- 
grams. Hence, it is hardly surprising 
that many programmers derive enor- 
mous satisfaction from programming 
intelligent games such as those I 
have mentioned. 

In this series of articles I shall 
discuss the principles of program- 
ming a computer to play games, 
placing special emphasis on the 
particular problems posed by run- 
ning these programs on a micro. My 
aim will be to acquaint the reader 
with the techniques of games pro- 
gramming so that (s)he will have the 
confidence and ability to program 
any intelligent game for a personal 
computer. Although I shall use a 
limited number of games in my 
examples, the same general princi- 
ples can be applied to any game in 
which thecomputer competes against 
the user or users. 

The series will be divided into 
three parts. The first part will cover 
all the general principles, giving 
examples and suggesting interesting 
programming tasks for the more 
enthusiastic reader who wishes to 
test his understanding of a particular 
topic. In part two I shall discuss 
some specific games in more detail 
and describe what work has been 
done in these areas so that the reader 
who is interested in a particular game 
need not re-invent the wheel. I shall 
also invite readers to write to me with 
their questions and ideas, and I shall 
publish the most interesting letters 
together with my comments (though 
I regret that no personal replies can 
be given). The third part of the series 
will begin when the most interesting 
games have already been discussed 
in detail, and it will be possible for 
me to devote most of each article to 
the readers' forum. 

I very much hope that these 
articles will be interesting and infor- 
mative for all of you who are "into," 



or would like to be into, computer 
games. 

Input/Output 

I/O on a personal computer is 
often largely a matter of taste, 
though certain points are worth 
bearing in mind when writing a game 
playing program : 

1) The output should be easy to 
follow. You may not think this 
important and many programmers 
take the attitude that if they can 
understand their output nothing else 
matters, but how about someone 
else? If you want to show your 
program off to a friend it will be so 
much better received if the output is 
clear, concise and unambiguous. 
Remember to ouput any information 
that may be helpful. For example, in 
a chess program you should always 
announce check, checkmate and 
stalemate. These little touches take 
hardly any extra effort, and they 
make your program that much more 
attractive to another user. 

2) If you want to use neat graphics or 
printouts, plan the layout carefully, 
taking into consideration all possi- 
bilities. It is not much use having 
your bridge program display pretty 
pictures of the cards if one day you 
discover that when you are dealt ten 
cards in a suit only nine of them will 
fit onto one line and the whole 
display is messed up. 

3) Ensure that the user can easily see 
whose turn it is to play, and what the 
last "move" was. It can be infuriating 
to leave the computer for a minute or 
two and then return to find that the 
program has moved but you do not 
know what it has done. 

4) Make it easy for the user to enter a 
move and to clear an incorrect move 
entry. 

5) Ensure that the program will reject 
an illegal, impossible or ambiguous 
move, or any entry that does not 
conform to your simple input rules. 
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Games, cont'd. . . 

One-Person Games 

A one-person game does not 
involve an opponent. You play against 
a microcosm of the forces of nature, 
and if you make a mistake it may be 
possible to recover, and then go on 
to win. Solving a problem or a puzzle 
is a good example of a one-person 
game - when you get near to a 
solution there is no one to oppose 
you by suddenly making the problem 
more difficult. It may seem at first 
glance that patience games are 
one-person games, but in fact many 
patience games do not permit the 
player any freedom of choice, so the 
"game" has no real interest. Once the 
cards are cut the player either will or 
will not finish the game, and all of 
his decisions are made for him by the 
rules. 

A well-known one-person game is 
the 8- puzzle, in which a 3 x 3 array of 
tiles contains the numbers 1 to 8 and 
an empty space. (The numbers are 
sometimes replaced by letters.) The 
player shuffles the tiles and then 
tries to reach some target position by 
successively moving tiles into the 
empty space. For example: 

STARTING TARGET 

CONFIGURATION CONFIGURATION 



3 




8 




1 


2 


3 


2 


5 


7 


4 




5 


1 


4 


8 


8 


7 


8 



Figure 1 

Here the task is simple, and one way 
in which the target can be reached 
from the starting configuration is by 
moving the tiles in the following 
order: 3,2,1,4,6,7,8,3,2,1,4,6,7,8,5 . 
With other starting and target con- 
figurations the task may be more 
difficult, and for those who find the 
8-puzzle too simple there is always 
the 15-puzzle, in which a 4 x 4 array 
has fifteen tiles and an empty space, 
not to mention the 24-puzzle, the 
35-puzzle and the (n2-1)-puzzle. In 
fact, there is no reason, other than 
tradition, why the puzzles need be 
square. 

Heuristics and Algorithms 

The 8-puzzle is an excellent 
example of the type of problem that 
lends itself to solution by heuristic 
means. Before describing how we 
should set about programming games 
of this type, it would be as well to 
distinguish between the terms "heur- 
istic" and "algorithm," which are 
often misunderstood. 

An algorithm is a technique for 



solving a problem (the problem may 
be finding the best move in some 
game) if a solution exists. If there is 
no solution to the problem the 
algorithm should determine this fact. 
Thus, an algorithm always works, 
otherwise it is not an algorithm. 

Most interesting games do not 
have an algorithmic solution, at least 
in the practical sense. Of course 
there is an algorithm for finding the 
perfect move in a game of chess - 
simply examine every possible move 
for both sides until one player is 
mated or a draw is established - but 
since the total number of chess 
games is greater than the number of 
atoms in the universe, this algorithm 
would be somewhat slow in practice. 
In contrast, however, there does 
exist a useful algorithm for the 
interesting game of Nim. 

Nim is played with a number of 
piles of objects, often matches, and 
with various numbers of objects in 
each pile. The players move alter- 
nately, and to make a move a player 
must remove, from one and only one 
pile, any number of objects he 
chooses, from one object to the 
whole pile. The player who removes 
the last object loses the game. (In 
another version of the game the 
player who takes the last object is 
the winner.) 

In order to win at Nim one need 
know only the following algorithm, 
and a few exceptional cases: If the 
number of objects In each pile Is 
expressed In binary, and each binary 
column of numbers Is added In 
decimal (without carrying numbers), 
then If the decimal totals are all even 
or zero then the person who is next to 
move Is In a losing position. Here is 
an example. 



Pile A: 1111111 

PileB: 11111 

PileC: 111 

PileD: 1 



= 7 matches = 
= 5 matches = 
= 3 matches = 
= 1 match = 



binary 

1 1 1 

101 

1 1 

1 



totals: 224 



All three totals are even so 
whoever moves next will lose, pro- 
vided that his opponent plays cor- 
rectly. 

There are some obvious excep- 
tions to the rule, for example, if piles 
A,B,C and D each have one match 
then the player who moves next will 
win, and the same is true of a 
position with only one pile of 
matches, provided that there are at 
least two matches in this pile. 

The existence of this algorithm 
does not detract from the interest of 
the game since its implementation is 



somewhat difficult for a human 
being, unless the number of piles 
and the number of matches in each 
pile is small. But for a computer 
program the task is trivial. The 
program considers each move that it 
can make, taking one match from 
pile A, two matches from pile A, and 
so on, and it evaluates each of the 
resulting positions until it finds one 
where the decimal totals of the 
binary columns are all even or zero, 
whereupon it makes the move lead- 
ing to that particular solution. Once a 
candidate move has been rejected it 
may be thrown away, so RAM is 
required only for the current situa- 
tion, the move or decision currently 
under consideration, and workspace 
for the binary/decimal calculations. 
The program tries each move from 
the current position, and if a move is 
found to be unsuccessful it is 
"unmade," and the next move tried. 
In this way it is not even necessary to 
store both the current position and 
the candidate position - the program 
can switch to and fro between them 
by making and unmaking moves, a 
technique which is useful for saving 
RAM in a highly restricted memory 
environment. 

One trick to remember for Nim, or 
any other game with an algorithmic 
method of play, is this: Should the 
program find itself in a theoretically 
losing position, as might happen at 
the start of the game, it should make 
the move that leaves its opponent 
with the most complex decision. In 
this way the opponent is more likely 
to make a mistake. In Nim I would 
suggest that if your program is in a 
losing position it should remove one 
match from the largest pile. 

A heuristic method for solving a 
problem relies on common sense 
techniques for getting closer and 
closer to the solution, until the 
solution is actually within sight. A 
heuristic is therefore a rule of thumb 
- it will usually help us to find a 
solution to the problem, but it is not 
guaranteed to do so. In situations 
where a heuristic does work, it will 
often find the solution much faster 
than any algorithmic method, though 
some heuristics, for best results, are 
often employed in conjunction with 
an algorithm. A frequently used 
device which makes use of heuristics 
is the free, and we shall now examine 
a method of solving the 8-puzzle by 
use of a tree and a simple heuristic. 

Let us return to the starting 
configuration in Figure 1. We always 
refer to the starting configuration, or 
the point from which the program 
must move, as the root of our tree. 
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Before we can decide which move 
might be best we must know which 
moves are possible, i.e. in accor- 
dance with the rules of the game. A 
list of these moves is usually 
supplied by a subroutine called a 
legal move generator , which may be 
extremely complex, as in chess, or 
very simple, as in the 8-puzzle. It is 
not difficult to see that in our starting 
configuration there are three tiles 
which may be moved, 3,5 and 8. Our 
legal move generator would deter- 
mine these moves by examining the 
elements of the 3 x 3 array which are 
horizontally or vertically adjacent to 
the empty space, and there are many 
simple methods for doing so. We 
might, for example, store all the legal 
moves in a table. If we number the 
elements of the array table thus : 

1 2 3 
4 5 6 
7 8 9 

our table of moves might look like 
this: 



vacant 


moves 


1 


2,4 


2 


1,3,5 


3 


2,6 


4 


1.5,7 




etcetera 



so that by knowing which element in 
the array was vacant, the program 
could immediately list the legal 
moves. This type of approach is 
called table-driven move generation . 
It is often the fastest way to generate 
the moves but for some games it 
consumes too much program mem- 
ory to make it a feasible proposition. 
Having generated the moves 3,5 
and 8 from our starting configura- 
tion, we can now begin to see the 
tree grow. 

Pb 

So (16) 



3 




8 


2 


5 


7 


1 


4 


e 



">, O) 



3 8 
2 5 7 
1 4 6 



m 2 


5) 






3 


8 


8 


2 




7 


1 


4 


6 



">3 (8) 



3 


8 




2 


5 


7 


1 


4 


8 



p, 

Si (16) 



Pj 

S? (IB) 



P 3 

S3 (18) 



The branches of the tree are the 
moves (m,m 2 m 3 ) that can be made 
from the root of the tree. We may 
denote the root position by Pg.the 
position arising after making the 
move m, is P, ; after making the move 
m 2 is P 2 , and after m 3 it is P 3 . These 
positions are represented on the tree 
by nodes. 

The program now looks to see if it 
has solved the problem, and if it has 
done so it will output the move 
leading to the solution, followed by a 
statement to the effect that the game 
is over and it has found a solution in 
however many moves, which are then 
listed. If it has not solved the 
problem the program might then like 
to know how close each of its moves 
has come to providing a solution, in 
which case it must evaluate each of 
the resulting positions. This is done 
with a device known as an evaluation 
function (or scoring function), which 
supplies a numerical score that 
represents nearness to or distance 
from a solution. 

A simple evaluation function for 
the 8-puzzle can be programmed by 
counting how many vertical and 
horizontal places each tile is away 
from its target location, and sum- 
ming them. This use of the so-called 
"Manhattan Distance" is quite com- 
mon in the computer solution of 
similar problems. If we examine our 
starting configuration we can see 
that : 

the 3 is two places away from 
target 

the 8 is two places away from 
target 

the 2 is two places away from 
target (1 horizontally, 1 verti- 
cally) 

the 5 is one place away from 
target 

the 7,1,4 and 6 are all two places 
away, and the empty space (do 
not forget it) is one place away. 

So the total of the Manhattan 
Distances is (2x1) + (7x2) = 16, and 
this is the score, So , which is 
associated with position P . 

Counting the Manhattan Distan- 
ces in Pi , P2 , and P3 , we get : 

S t = 16 
S 2 = 16 
83 ■ 18 

(Note that when a solution is 
found, S will be zero.) 

So, on the basis of our evaluation 
function, it looks as though moves 
mi and nri2are likely to lead to a faster 



solution than 013, since positions Pi 
and P2seem nearer the target posit- 
ion than does P3 . And this is where 
the story really begins. 

An obvious, though tedious, al- 
gorithmic solution to this problem, is 
to look at each of the positions Pi , 
P 2 and P3 , then generate all the legal 
moves from each of these positions 
and look at the newly resulting 
positions, then generate all the 
moves from these positions, and so 
on, until one of the positions is 
found to be the target (i.e. its score 
S, the sum of the Manhattan Dis- 
tances, will be zero). Eventually, this 
method, which is called exhaustive 
search, will find a solution, so long 
as the program does not run out of 
RAM. But by using a simple heuristic 
we can head the program in the right 
direction and, hopefully, a solution 
will be found sooner than if the 
exhaustive search algorithm were 
used. 

We have seen that when we 
expand the node P , of the three new 
positions that appear on the tree, Pi 
and P2 appear to be more promising 
than P3 . It is clearly logical to expand 
the more promising nodes before the 
less promising ones, so at first we 
should neglect P3 and concentrate 
on Pi or P2 . Since they are of equal 
apparent merit, the program may 
choose between them at random. Let 
us assume that it chooses to expand 
Pi , from which it will generate the 
moves of the 2 tile and 3 tile. Since 
the 3 tile was moved on the previous 
turn, and the program is intelligent 
enough to know that it does not want 
to go back to where it had just come 
from, the only move (m,,) that the 
program needs to consider seriously 
is the move of the 2 tile, which would 
lead to the following position : 



/"11 



2 


3 


8 




S 


7 


1 


4 


6 



P.. 

Sn (14) 

which we denote by P», and which 
has a score (Sn) of 14. 

The best position now on the 
tree, i.e. the position closest to the 
target configuration, is P^, since its 
score of 14 is lower than the scores 
of all the other nodes. So remember- 
ing not to allow the retrograde move 
of the 2 tile, the program now 
expands position Pn, and the choice 
is to move the 1 tile or the 5 tile, 
giving rise to the following position : 
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Record keeping problems? Our CCA Data 
Management System solves them easily. 



Having information at your fingertips can make your job a 
whole lot easier. And that's what the CCA Data Management 
System is all about. 

With this Personal Software" package and an Apple II" 
or TRS-80" disk system, it will be far easier to keep inven- 
tories, customer lists, accounts receivable and payable records, 
patient histories and many more items. 

In fact, you can use the CCA DMS for all of your data 
management needs, rather than buying (expensive) or writing 
(time consuming) separate programs for each applica- 
tion. That's because DMS lets you create your own 
filing systems, adapting itself to the types of records 
you keep. You specify the number and names of 
each data field— without any programming. 

With DMS keeping all of your records, you only 
have to leam how to use one system. That's 
easier, too. It's menu driven, with plenty of 
prompts to help you create files and add, 
update, scan, inspect, delete, sort, con- 
dense and print data. Our compre- jJk 
hensive 130-page step-by-step ss 
instruction manual even provides 
complete "how to" inventory and 
mailing list applications so you 
can start processing immediately. 

DMS is a very powerful sys- 
tem, with more file and record 
storage capacity than other data 
base programs on the market. 

' Apple is j trademark of Apple Computer, 
Inc. TRS-80 is a trademark of the Radio Shack 
Div. of Tandy Corp. 
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And it also gives you greater data handling flexibility. To cus- 
tomize DMS, write add-on BASIC programs that read or write 
DMS files and perform any kind of processing you want. 

You can sort and print your data in nearly any form of 
report and mailing label you want. Sort data by up to 10 fields 
for zip code, balance due, geographic location or whatever. 
And print reports with subtotals and totals automatically 
calculated. 

The CCA Data Management System, written by Creative 
Computer Applications, has two years of field testing on other 
microcomputers. Now Personal Software makes DMS avail- 
able on the TRS-80 Level II and Apple II and II Plus 48k 
disk systems. And at under $100, DMS is also easy to afford. 
One demonstration will convince you how easy com- 
puterized record keeping is. Ask your Personal Software 
dealer to show you. To locate your nearest dealer, 
contact Personal Software, Inc., (408) 745-7841, 592 
Weddell Dr., Sunnyvale, CA 94086. 
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Games, cont'd 




the root of the new tree, remember- 
ing to output all the moves on the 
path leading to this position. 

For example, our tree generated 
for the 8-puzzle now looks like this: 



2 


3 


8 




2 


3 


8 


1 


S 


7 


S 




7 




4 


• 


1 


4 


e 



Pin 
Sin (14) 



P112 
8,„ 04) 



Once again we have a tie, two 
"best" positions with scores of 14, 
and so the program again makes an 
arbitrary choice. 

This process continues until a 
solution is found. It is easy to see 
that the method can hardly fail to be 
substantially faster than the exhaus- 
tive search process described earlier. 
The tree is grown intelligently, rather 
than in a dumb-ox manner, and 
better use is made of the available 
memory. With the exhaustive search 
process, unless a solution is found, 
the computer's memory will be filled 
at a stage when a very large 
proportion of the nodes on the tree 
are not of any real merit. With the 
heuristic approach, when memory is 
exhausted we at least know that 
most of the memory has not been 
wasted on unlikely moves, and we 
can use the best sequence of moves 
found so far. 

What To Do When Memory Is Exhausted 

Working with a personal compu- 
ter inevitably poses memory con- 
straints on a different scale from 
those encountered when writing for a 
large machine. How can the pro- 
grammer combat this problem when 
examining large trees in an attempt 
to solve a one-person game? I shall 
describe two approaches to this 
particular problem: 

1) Follow a path through the tree to 
the best position found so far and 
output the moves on this path. Then 
make this "best position" into the 
root of a new tree and start again. 

2) More intelligently, when memory 
becomes full, delete the currently 
"worst position found so far" and use 
the newly scrubbed bytes to store the 
next position that the program 
generates. If this process is continu- 
ed for long enough, either a solution 
will be found or the tree will 
eventually have two paths, each path 
having no offshoots. When that 
happens the program must choose 
the best of the paths, and make the 
terminal position on this path into 




If memory Is now full the program 
would delete m 3 (and P 3 ), to make 
room for the successor position 
produced when it expands Pm or 
P112. Let us assume that both m 2 (P2 ) 
and m 3 (P 3 ) are deleted, to make way 
for P m and P 1I2 . We then have: 




and the program can now output the 
moves mi and m fl , making position 
P„ the root of a new tree. 




The new Rj is the old Pn 
The new Pi is the old Pm 
The new Pj is the old Pn 
The new Pn is the old Pmi 
The new P is the old Pjtu 

And thus the search for a solution 
continues. 

The Shortest Solution 

In most games it is sufficient to 
win, but there may be reasons why 
one wishes to win as quickly as 



possible. For one-person games 
there exist various refinements on 
this method of tree searching which 
are likely to produce such a result. 

The underlying philosophy in the 
search for a speedy solution is the 
notion that it is not only important 
how near (or far) you are from victory, 
it also matters how many moves it 
took you to get there. With the 
8-puzzle, for example, a ten move 
sequence leading to a position with 
score 12, may not be so likely to lead 
to a short solution as a two move 
sequence leading to a score of 13 — 
perhaps in the next eight moves it 
will be possible to improve on the 13 
by more than 1, thereby finding a 
shorter route to the solution. 

This notion might be expressed 
numerically in the following evalua- 
tion function : 

score = sum of Manhattan Distances + M 

where M is the number of moves 
needed to reach this position. Wheth- 
er or not this expression is the best 
method of relating the score to effort 
invested and achievement realized, 
can only be determined by trial and 
error. Perhaps M should be replaced 
by VfcM or by 2M, or some other 
function of M. Playing around with 
the evaluation function in this way, 
changing the terms in the function, 
is one of the delights of game 
playing programming. When you hit 
upon a really good evaluation func- 
tion, and you see the program's 
performance improve dramatically as 
a result, there is a feeling of 
exhilaration rather like watching your 
child crawl for the first time. In a later 
article we shall see how evaluation 
functions can be modified in the light 
of experience gained with the pro- 
gram, and it will be shown that it is 
even possible for the program itself 
to learn from its mistakes and modify 
its own evaluation routine! 

Flow Chart 

A generalized global flow chart 
for the search of a one-person game 
tree is given below. Remember that 
the most creative part of the work lies 
In finding a good evaluation function 
and the performance of your function 
can be measured by the number of 
spurious nodes that are expanded en 
route to a solution. A perfect 
evaluation function will never expand 
a spurious node. The very worst 
function will expand each node at 
one level in the tree before looking 
ahead to the next level (this is 
exhaustive search). 
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Delete 
Worst Node 
On the tree 



Generate Next Successor 
Node to the Best Node 
Found so Far ("Next" will 
Sometimes Be "First") 



Output Currently 
Best Path 



Make Currently 
Best Node Into 
Root of New 
Tree 




Output AM 
Moves on Solution 
Path Not Yet 
Output; Followed 
by Number of Moves 



G^D 



Task for the Month 

Write a program to solve the 
8-puzzle in the shortest number of 
steps it can. Test the program by 
setting up various starting and target 
conf gurations, and see if your 
program solves the problems in 
fewer steps than you do. (Probably 
neither you, nor your program, will 
be as fast as Bobby Fischer, who can 
solve these puzzles with phenomenal 
rapidity.) When trying the problems 
yourself remember not to cheat - if 
you move a tile and then change your 
mind and move it back, add two to 
your count. D 
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Good programming deserves good documentation. BITS Inc has 
developed a programming form to help assembly language program- 
mers write and preserve their programs in a loose-leaf notebook for- 
mat. BITS PROGRAMMER PADS™ are now available for the 8080A, 
Z-80. 1802. 6800, and 6502 microprocessors. On one side of the 
form the proccessor's register architecture is laid out along with con- 
tinuous memory locations. This allows the details of your program's 
register use, stack manipulations, indexed addressing, and table and 
data storage to be permanently recorded. The other side is for your 
program or subroutine listing. Its source listing is entered in the in- 
structions, labels and comments columns. Assembling is done next 
by filling in the object code column which is wide enough for two or 
three byte instructions. Memory locations are assigned in the address 
column. If revision or relocation of the program is necessary, the ad- 



For Fastest Service 

CALL TOLL FREE 800-258-5477 

FOR BANK CARD ORDERS 

(in N.H. 924 3355) 



dress column can be renewed using typewriter correction tape (a 
white paper tape about 1/3" wide) and memory addresses reassign- 
ed. 

BITS PROGRAMMER PADS will protect the effort you have put into 
your programs and take some of the pain out of hand assembly. Each 
50-page pad is printed on durable stock paper, and prepunched for a 
standard three-ring notebook. They are available for $2.50 each. 
(Postage and handling: Domestic- 75' for one pad, $1 .25 for two or 
more; Foreign- $1 .00 per pad to a maximum of $4.00) Please 
specify which microproccessor. 
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Learn French in One Easy ADVENTURE 

Take your students to an enchanted land filled with 
French speaking characters and send them on a 
treasure hunt. They direct their computer puppet in 
French with two-word commands like "climb tree" or 
"go north." They try to find their way from a small brick 
well-house to underground caves. They'll meet up with a 
giant clam, nasty little dwarves, and other hazards. If 
the situation gets too rough to handle they can switch to 
English at the push of a button. Even so, it will take your 
students months of enjoyable games playing to unravel 
the mystery. BON VOYAGE! Bilingual Original 
Adventure (CS-9004) runs in 48K CP/M, the 8" disk is 
available for $24.95. 




Creative Computing offers a wide variety of un- 
complicated user-oriented educational programs. Study 
Made Easy for the PET(CS-1202) will create study drill 
tapes for any subject automatically. The computer 
guides you, step by step, through the entry of questions 
and multiple choice answers. The package includes 
three prepared drills and the program needed to make 
new study drills. From U.S. Presidents to Lacrosse rules, 
the versatile programs of Study Made Easy will create 
study drills for you automatically. It's well worth the 
price of $14.95. 

CAl Programs offers a diverse group of study aids. 
U.S. Maps uses high resolution graphics to help 
students learn the state and their capitals. Spelling 
increases its pace as you progress. Math Drill and Add 
with Carry will help you with mathematics basics at 
your skill level. The Know Yourself package (CS-4301) 
helps you investigate society's effects on your behavior, how 
your life style affects your life expectancy, and how your 
attitudes are affected by society's concept of sex roles. 
CAl Programs and Know Yourself are available 
individually on cassette for $7.95 each or on one disk 
(CS-4503) for only $14.95. They are designed for the 16K 
Apple II. 



CAI Programs 




U.S. Map 
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Math Drill 
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The Social, Economic, and Ecology Simulations 
Unique Educational Tools 

The director of a malaria control program works 
within a $500,000 budget over 5 years. A war breaks out 
and suddenly the supply of curative and preventative 
drugs is cut off— if there is no treatment 4% of those who 
are ill will die . . . 

What happens ??? In an ordinary classroom situation 
the student speculates haphazardly on the outcome and 
turns the page to find out. 

The student using the Malaria program of the 
Social, Economic, and Ecology Simulations series 
actively designs his plan for the deployment of field 
hopitals, pesticides, remaining drugs for the ill and 
preventative medication. Then in a highly realistic 
simulation he carries out his strategy and receives 
prompt feedback about the effectiveness of his treat- 
ment. Because the student is personally responsible for 
economic, political, and scientific decisions he returns to 
his textbooks with renewed interest. 

The series (which is based on models developed by The 
Huntington Two Computer Project) exposes students to 

§roblem solving in real world situations. Ecology 
imulations-1 (CS-3201) explores methods of popula- 
tion management. Students can cooperate to save the 
Wild West bison from extinction in Buffalo. The 
comprehensive introduction to modeling concepts is 
completed in Pop, Sterl, and Tag. 

Ecology Simulations-2 (CS-3302) explores 
problems in environmental and health sciences. In 
Malaria, Pollute, Rats, and Diet the user can attempt 
to end water pollution, rats in a city slum, or to design a 
healthy diet. Social and Economic Simulations (CS- 
3204) allows students to experiment with a micro- 
computer version of the well-known "Limits to Growth" 
project in Limits or compete against each other in the 
bicycle industry in Market; U.S. Pop lets students 
investigate demographic concepts. 

The series is designed for the 16K TRS-80 Level II and 
is attractively packaged in a vinyl binder. Included is a 
study guide which relates the material to current 



AND FUN! 

"In the classroom, this should be en ideal 
learning tool. Not only can students work on the 
msthematical effects of populstion growth but 
they can also see the social and ecological effects 
of eny decisions they make ..." 

"The menual is extremely well done. It provides 
necessary background information on each pro- 
gram and encourages the student to think about 
the socisl aspects of each program rather than just 
the mathematical processes." 

80 Software Critique on 

Ecology Simulations-1 

Jen-Msrch 1960 



Ecology Simulations-2 
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controversies, stimulates classroom discussion, and 
provides sample exercises. The series is also available 
on disk: Ecology Simulations-1 ^CS-3501), Ecology 
Simulations-2CS-3502), and Social and Economic 
Simulations (CS-3507). At a modest $24.95 each, with 
quantity discounts available, the series becomes an 
affordable necessity. 



Apple Gradebook (CS-4506) brings the speed and 
accuracy of the computer to the teacher's traditional 
grading and record-keeping procedures. Gradebook 
stores and maintains all student records on disk. The 
package includes ten interlocking programs which lead 
you step by step, through setting up a class file and 
storing it on disk. These invaluable programs sum- 
marize the state of the class as a whole and then let you 



check on the progress of any individual. Apple 
Gradebook runs in 32K on Apple II and costs only 
$24.95. 

IQ-Test conducts a reliable intelligence test for ages 
10 and over. A sophisticated machine language program 
does the scoring and makes cheating almost impossible. 
The test consists of 60 graphically presented questions. 
Only $14.95 on cassette for the 16K TRS-80. 



Creative Computing Software offers the educator, 
small businessman and home user outstanding 
applications programs at modest prices. A FREE 
Sensational Software Catalog of over 400 programs, 
on 70 tapes and disks, is available upon request. 
Sensational Software has the programs educators 
need to make microcomputers in the classroom 
worthwhile . . . children can compose poetry, learn the 
role of an air traffic controller, or simply make music 
with software from Creative Computing. 



Sensationsl Software should be available st 
your local computer store. If your fevorite reteiler 
does not stock the software you need, heve him 
call our retail marketing department at the 
number below. Or you can order directly from 
Creative Computing Software, Dept 301, P.O.Box 
789-M. Morristown, NJ 07960. Vise, MasterCharge. 
or American Express ere slso welcome. For faster 
service, call in your bank order toll free to 
800-631-8112. In NJ call 201-540-0446. 



For a FREE Sensational Software Catalog of over 400 programs for eight popular systems circle reader service #207. 
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The comments and opinions of the 
author are given for educational 
purposes only and are not meant to 
be legal advice. Specific legal 
questions should be referred to 
your personal attorney. 



Harold L. Novick 



Food for thought for February can 
come from comments, answers, or 
questions, as Van Lynn from John- 
son, Kansas observed in his letter to 
Creative Computing magazine. Van 
mixed legal questions and opinions 
and concluded with the following 
observation: "Copyrights are, how- 
ever, only as good as the ethics and 
morality of the people who use the 
material. After you have written a 
program or two that someone else 
wants, the Golden Rule seems like a 
darn good idea." 

High morality and ethics are lofty 
goals and ones which this Forum 
strongly advocates. However, as 
should be obvious from prior Forum 
articles, what one person thinks is 
morally and ethically proper, another 
thinks is piracy. 

One need only to review the 
position of Mr. Nunas in his letter 
published in last month's Forum. He 
believes that protection of "programs 
on machine-readable media" should 
extend only to those who exploit 
their software, but should not "pro- 
tect that which you don't sell." 
Creative Computing magazine editor 
Steve North did not agree. Query: 
What would Mr. Nunas think if 
someone without his permission 
occupied a vacant island that he 
hypothetical ly owns in New Bruns- 
wick, and which he hopes to use in 
the near future. Suppose that person 
commercially fishes from the island 
and traps game. Under Mr. Nunas' 
philosophy, the poacher may use his 
own labor to reap the benefits of the 

Harold L. Novick Patent Attorney LARSON. 
TAYLOR & HINDS Arlington, Va. 22202 



island so long as Mr. Nunas was not 
using the island. On the other hand, 
there is no difference between tan- 
gible property (e.g., land, fish, game) 
and intangible, intellectual property 
(e.g. computer software), and both 
should belong to the owner without 
being subjected to the exploitation 
by others in the event of non-use. 

One of the legal foundations of 
the capitalistic world is the sanctity 
of property. Unless there is an 
overriding public concern, the law 
permits one to do anything with that 
person's property so long as there is 
no interference with someone else's 
property. That not only includes the 
right to use the property, but also the 
right not to use the property and the 
right to refuse to allow someone else 
to use that property. Suppose Rem- 
brandt were a recluse. Does he not 
have the right to paint his master- 
pieces and then deny the world the 
opportunity to see them? 

With these philosophical under- 
pinnings, let us return to the world of 
reality. Reliance on ethics and mora- 
lity may be fine in an idealistic 
society, but in practice they cannot 
and should not be used alone. They 
are not enforceable; they vary from 
culture to culture, and even vary 
within each culture from person to 
person; and most imoortantly, they 
have not been recorded and do not 
exist in sufficient detail so as to 
apprise a person of what can and 
cannot be done. Computer pro- 
fessionals, business people and per- 
sonal computerists alike all require a 
legal environment in which the 
permissible standards of behavior are 
set forth, an environment in which 



legal protections exist so that eco- 
nomic investments can be protected. 

In the world of reality today, legal 
protection for intellectual property, 
including computer software, exists 
to one degree or another in patents, 
copyrights, trade secrets and con- 
tracts. Patents protect the idea, 
copyrights protect the expression of 
the idea, trade secrets protect the 
implemented idea and contracts 
protect whatever the parties to the 
contract agree upon. Each legal 
protection has its advantages and 
disadvantages. 

A practical appreciation of the 
protections available from these four 
can be seen in the answers to the 
questions posed by Mr. Floyd. He 
writes: 

If I buy a magazine like Creative 
Computing that contains a 
program, do I even have the 
right to use the program pub- 
lished within? Secondly, it is 
clear that I cannot photocopy 
the pages without violating 
rights but if I lend or give the 
magazine to someone else who 
then enters the program in his 
machine the net effect is the 
same as photocopying since he 
didn't purchase the magazine. I 
have the good sense not to 
pass off a program that I have 
adapted or copied as my own, 
but if I adapt a program that's 
essence is a single formula and 
which is totally unuseable on 
my machine, have I violated 
someones rights? In other 
words, is a formula copy- 
rightable? 
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In my manuals that came with 
my computer is a notation of 
copyright. I feel that the impli- 
cation could be drawn that the 
very address numbers neces- 
sary to use the machine are 
copyrighted and thus if I tell 
you where to find a register or 
subroutine I would be breaking 
the law. I realize that in practice 
the companies want you to use 
the machine and are probably 
not deeply worried about that 
but yet it would appear that 
they could get upset. Can 
discovered information, being 
discovered independently of a 
copyrighted source and with- 
out knowledge of such a copy- 
right, be a violation? 

Is it legal for me now to 
quote my own letter that I sent 
to you because it is copyrighted 
as a part of your magazine and 
I do not have any share of the 
ownership of the copyright un- 
der which it is copyrighted? 
Van's questions are good ones 
and they reflect the general state of 
uncertainty and lack of knowledge in 
the software community. This state 
of affairs is understandable particu- 
larly when the legal community is 
divided in its opinions (note the 
Chicago judge's decision in the 
CompuChess case discussed in the 
January 1980 Software Legal Forum 
that an obiect program stored in a 
dedicated ROM is not a copy of the 
source program from whence it 
came). 

Magazines are usually copyrighted 
and thus any software contained in 
the magazine usually falls under that 
copyright protection. Neither the 
purchaser of the magazine nor any 
subsequent reader can "copy" the 
software without permission. Creative 
Computing magazine gives the 
reader the permission to reprint 
material in the magazine. In this 
author's opinion, that is not an 
express permission to use a compu- 
ter program printed in the magazine 
in a computer. However, based on 
the doctrine of fair use as applied by 
the California judge in the Betamax 
case (also discussed last month), it 
is the opinion of this author that the 
copying of the software into compu- 
ter memory or storage on a floppy 
disk by the purchaser of the maga- 
zine for the purchaser's private, 
non-commercial use is not an in- 
fringement of the copyright. However, 
that right should not extend to one 




who "borrows" the magazine or one 
who "borrows" and copies the floppy 
disk. That person should buy his or 
her own copy of the magazine and 
create his or her own floppy disk. 

The foregoing discussions about 
using a computer program published 
in a magazine were based on copy- 
right considerations only. Clearly 
the program is not a trade secret 
because it has been published in the 
magazine, and clearly the magazine 
reader is not a party to any contract 
involving the program. Therefore, 
these forms of protection would not 
apply. However, the program or parts 
of it may have been patented. If that 
were the case, then no one could 
legally use the program without 
permission from the patent owner. 

Patents are the key to the answer 
of Van's second question. A formula 
or mathematical algorithm cannot be 
copyrighted; however they may be 
patentable. If it is patented, then you 
would violate someone's rights if you 
used it. If the computer program or 
formula were legally obtained, trade 
secrets or contracts would not be a 
bar to using the formula. 

The third question also involves 
the matter of copyrightable subject 
matter and further involves the scope 
of copyrights. Although the copy- 
right would protect the address 
numbers if copied together with the 
entire program (assuming of course 
that software is copyrightable), it 
would not cover the underlying idea 
or concept and it would also not 
cover a separate writing about the 
software so long as the software is 
not embodied in the article. Further- 
more, independently and legally 
discovered information protected by 
trade secrets can be used by the 
discoverer in any way in spite of the 
trade secret protection. 

However, express knowledge of a 
copyright is not required and one can 
become liable for even an innocent 
copying unless the copyright notice 
was omitted and the innocent in- 



fringer can prove "that he or she was 
misled by the omission of the 
notice." Similarly, lack of knowledge 
of patent protection is no defense. 

Finally, Van asked whether he 
could quote his own letter. If Van 
means, can he comment on his letter 
and use parts of it for "criticism, 
comment, news reporting, teaching, 
scholarship, or research," then, yes, 
he can because such use is "fair use" 
and not an infringement of copyright. 
However, if Van means can he 
otherwise use his own letter the 
answer may still be yes unless by 
addressing his letter "To The Editor" 
he intended to convey ownership of 
his copyright to Creative Computing 
magazine or dedicate the copyright 
to the public. In any case, it does 
seem that he gave the magazine the 
right to publish the letter. 

As for the magazine's copyright 
covering the letter it seems the 
better view is that the copyright of 
the magazine extends only to those 
materials which the publisher owns. 
See the discussion of collected 
works in the November 1979 Soft- 
ware Legal Forum. 

Most of the discussions so far in 
the Forum have involved copyrights. 
Starting next month, the discussion 
will turn to the patenting of computer 
software. Should anyone desire to do 
some homework, it is suggested that 
he or she consult one of the 
references listed in the "Computer 
Law Reading List," published and 
distributed free by the Center for 
Computer/ Law, 530 W. Sixth Street, 
Los Angeles, CA 90014. The Center 
also publishes the "Computer/Law 
Journal," a fine legal journal that 
addresses many legal issues of 
interest to the personal computing 
community. Unfortunately, no single 
publication is known which ad- 
dresses the entire subject of legal 
protection of computer software. The 
only known solution is to continue to 
read the monthly pronouncements in 
the Forum. q 
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Chuck Carpenter 



Correspondence is always welcome and a 
response will be made to those accompanied 
by a SASE. Send your letters to: Chuck 
Carpenter, 2228 Montclair PI., Carrollton, TX 
75006. 




The Diskette Craze 

Several times over the past few 
months I've heard of people recording 
on both side of their diskettes. One 
source of software even ships their 
programs recorded this way. This Is a 
very risky practice. Here's why: 

• Single sided media is only certified 
on the normal recording side of the 
diskette. 

• The' uncertified side can have 'soft 
spots' that may not generate enough 
output to be read by the read head. 
Some drives will work OK, some 
won't. 

• Diskettes spin in one direction. Dirt 
is collected on one side by the liner 
in the diskette jacket. 

• When you turn the diskette over, it 
spins in the opposite direction. The 
dirt comes loose and passes under 
the head. Increased head and media 
wear is the result. 

• A felt pad is used to load the head, 
under light pressure, against the 
diskette. In normal use, the pad col- 
lects dirt and bits of magnetic ma- 
terial. 

• Pressed against the normally un- 
recorded side, the head load pad 
poses no problem. The resulting 
abrasion is on the unused side. You 
can guess what is going to happen to 
your programs when this abrasive 
pad is allowed to rub on both sides 
of your diskettes. 

Note that two sided drives use read/ 
write heads loaded against each other. 
The diskette always spins in one direc- 
tion. And, the media is certified on both 
sides. The diskettes that "fall out" or 
are marginal are used for single side 
applications. 

Also, in order to use the media on 
both sides, a notch must be cut in the 
diskette jacket. If even the smallest 
plastic chip gets loose and wedges in- 
side, the magnetic surface will be 
scraped bare. If you're lucky this will 
occur outside the recording area on 



the diskette (If you're lucky). Assuming 
you can cut the second notch without 
making chips, some of your easily re- 
placed programs might be saved on 
both sides of a diskette. If you belong 
to a club with a large library or can 
easily get another copy of a non- 
critical program, there is little risk. If a 
particular program generates a unique 
data base, then don't take the risk. Any 
special programs you write or use 
should only be saved on the normal 
recording side of unmodified diskettes. 

One more point: If you insist on 
using both sides of a diskette, have 
them checked. If you have access to 
the new language system, Pascal, use 
the BAD BLOCKS function to check 
diskette surfaces. The higher writing 
density of the Pascal DOS increases 
the chance of finding any bad spots, 
too. Doing some certifying on your 
own will significantly improve your 
odds against lost data. 

These comments are the result of 
personal experiences with dozens of 
disk drives and hundreds of diskettes. 
A recent assignment of mine included 
subsystem responsibility for drives 
and media. Also, I made a specific 
point of discussing the problem with 
Shugart Field Engineers. Their com- 
ments concurred exactly with mine. 

Apple's Easy I/O 

Built into your Apple is a con- 
nector (a 16 pin socket) that will allow 
you to sense and control things in the 
"outside world." There are also 8 ex- 
pansion connectors for pugging in all 
sorts of complex circuit boards (for in- 
stance, the disk drive controllers, the 
serial and parallel boards, the clock 
boards and so on). But using these 
connectors is not easy and we'll leave 
the expansion connectors to the 
serious hardware designer. 

Easy input and output (I/O), is 
provided by the game paddle con- 
nector (GP I/O). You can control and 
monitor a wide variety of circuits and 



gadgets. The input and output pin 
voltages are all transistor transistor 
logic (TTL) levels. And, there are 
many inexpensive TTL devices avail- 
able from computer shops and elec- 
tronic supply stores. The maximum 
voltage for TTL circuits is 5 volts. As 
you will see, this supply voltage is con- 
veniently provided on the GP I/O con- 
nection. Connectors areeasily made to 
the pins of the GP I/O with a 16 pin 
component header. The signals avail- 
able at the GP I/O connector are: 

• Four latchable bits to turn things on 
and off. 

e Three sense bits to check for switch 
closure and opening. 

e Four analog inputs for sensing con- 
trol positions, measuring tempera- 
ture or whatever. 

• One utility strobe so you can control 
things in time with the computer. 

• Power, +5 volts and ground for low 
current applications. 

All twelve signal ports (I/O pins) are 
controllable from programs. The fol- 
lowing diagram shows the arrange- 
ment of the inputs and outputs on the 
16 pin GP I/O connector. 

Top View 

Ground 

PDL2 
PDLO 
Strobe 
SW2 

i-wi 

SWO 

+5 Volts 

Location J1 4 On The Apple Board 
Figure 1 

More information about GP I/O 
signals can be found on pages 126, 
137, 138 and 150 in the old 'Apple II 
Reference Manual' (the red book) and 
pages 23 to 25 and 100 in the new 
'Apple II Reference Manual.' 



NC 


|9 


8| 


PDL1 


ho 


7| 


PDL3 


I" 


6| 


AN3 


|12 


5| 


AN2 


|13 


4| 


AN1 


1 14 


1 


AN0 


|15 


2| 


NC 


lie 


M 



148 



CREATIVE COMPUTING 



Some I/O Background 

Now that you know this basic in- 
formation, some background on cir- 
cuits to connect to the I/O pins will get 
things started. One thing you could 
connect is more game paddles and 
another switch. The paddles and 
switches that come with your Apple are 
connected to PDLO, SWO, PDL1 and 
SW1. The game paddle and switch 
circuit looks like this: 

PDLO 

— O 



+5 Volts 

n> — 



150 K Ohms 



-O O 




Switch 

E> = Connection To Pin Ot 
GP I/O Socket 

Typical Game Paddle Circuit 

Program statements used to read the 
PDL and SW inputs are: 

PEEK PDL (X); gives a number 
between and 255 from one of the PDL 
inputs depending on the position of 
the variable resistor. 

PEEK (addr); gives a number less 
than 127 if the switch is off and a 
number greater than 127 if the switch 
is closed. Using this command as an 
equality will test this condition. Here's 
one way: 

IF PEEK(-16286) > 127 = 1 GOTO . . . 

Another possibility is to connect a 
lamp or light emitting diode (LED) to 
one or more of the annunciator output 
pins, ANO to AN3. A circuit to connect 
an LED looks like this: 

E> T> 6>f) <3 

I^V.7404 ^ 
LED Circuit With 7404 Driver 

or, a low current lamp can be con- 
nected like this: 



ANO 

[H>- 






£. 



'/ 6 7406 



Low Current 



+5 Volts 



Lamp 
Lamp Circuit With 7406 Driver 

The current available from the 5 
volt supply pin is limited to 100 mA. 
The lowest current lamp I have found is 
a 6 volt, 25 mA unit from Radio Shack. 
Figure about 15 mA for an LED. This 
means that more LEDs can be con- 
nected to the AN(X) outputs with 
power left for the TTL buffer/amp- 
lifiers. Use of LED's will reduce the 
need for an external power supply. In 
all cases, use a TTL buffer/amplifier to 
drive the external circuits. You will 



have more circuit flexibility and the 
circuits in your Apple will be protected 
from accidents. 

The two TTL devices illustrated in 
the circuits above are inverting types. 
That is, the output signal is the op- 
posite polarity of the input signal. It's 
not really necessary to invert in this 
application. These two TTL devices are 
popular and inexpensive. Both types 
include 6 individual circuits in the 14 
pin package. The 7406 is an open col- 
lector device and should be used for 
driving low current lamps or relays. 
The 7404 will work as a driver for lower 
current devices like the LEDs and as a 
logic element and buffer. 

Who's There 

Monitoring a remotely located 
switch is one task you can accomplish 
through the SW input pins. For in- 
stance you can connect a switch as 
shown in the following circuit to 
monitor a remote location, 

• +5V 



'10K 



i — °° — 
Remote 

I Switch 



£> 



% 7404 



SW2 

<31 

Ground 
<ffl 



Switch Sensing With 7404 Buffer 

With the switch open, the 10K pullup 
resistor insures that the input to the 
7404 is not floating and is not affected 
by noise on the wires. The 7404 is an 
inverter, so the output is a zero or low 
when the input is at 5 volts. When the 
switch is closed, the input goes to zero 
or low and the output goes up or high. 
By using the PEEK command in a 
Basic program the SW2 input can be 
tested. 

IF PEEK (-16285) > 127 = 1 GOTO . . . 
REM : switch 3 is on when true 

When the voltage at SW2, pin 4 is near 
zero, the PEEK statement is false. 
Closing the switch causes the input to 
SW2, pin 4 to go to a voltage level be- 
tween 3 and 4 volts. The PEEK state- 
ment will now be true and you can 
cause your program to respond ac- 
cordingly. 

Apple Turns On 

Pins 1 2 to 1 5 are the late hable out- 
puts called annunciator ports. Each of 
these outputs can be set from within a 
program by using a POKE statement. 
When power is first turned on, the 
normal level is set by the power-on 
reset routines in the monitor ROM. For 
ANO and AN1 this level is high. A POKE 
to the address representing the AN(X) 
set or reset condition will cause the 
voltage to change accordingly. For 
instance: 



Normal On 



After POKE 



High 



3 to 4 Volts 



Low 



-Approx. Volts 



To switch the voltage back high, 
another POKE is required; this time to 
a different address. For output ANO the 
POKEs required are like this: 

POKE -16296,0 : REM — SET ANO HI 
POKE -16295.0 : REM — SET ANO LO 
POKE -16296,0 : REM — SET ANO HI 

Using three POKEs in a row like this 
will generate a pulse at the ANO pin. It 
will be a fairly fast pulse and if the LED 
circuit shown previously were con- 
nected to ANO the LED would blink. 

To make the LED flash on and off 
use a FOR NEXT loop with suitable 
delays between POKEs. First, it's a 
good idea to make sure the ANO output 
is at the desired starting level. Use a 
POKE in your initiating routine to 
assure that ANO is set HI. Then, use a 
program segment something like this 
to flash the LED: 

FOR I = 1 TO 10 

POKE -16295,0 : REM — LED IS ON 

FOR J = 1 TO 200 : NEXT J 

POKE -16296,0 : REM — LED IS OFF 

FOR J = 1 TO 200 : NEXT J 

NEXT I 

RETURN 

The same routine can also be used to 
flash the lamp except the on and off 
conditions are reversed. Depending on 
your requirements, you can reverse the 
order of POKEs, add a 7404 inverter 
ahead of the 7406, or leave the circuit 
as is. More information on addresses 
to use for the other latchable outputs 
can be found on pages 75 and 137 in 
the red book and page 24 of the new 
reference manual. 

Which Way and How Far 

Analog inputs, such as the output 
voltage from a game paddle, can be 
'read' by the PDL inputs. A voltage that 
varies continuously between and 3 
volts will be converted to numbers 
between 255 and in the computer. A 
game paddle is the most usual gadget 
connected to PDL inputs but there are 
many other possibilities. One such 
possibility is a temperature checking 
circuit. Here's one idea: 

From Bus Connector 
— <SJ 

+12 Volts 



20K Ohms 




Oftm »-c Fm-i 



PDL2 



8.2K Ohms 



100K Ohms 



CD 

Temperature Checking Circuit Ground 
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This circuit won't measure temper- 
ature exactly but it can be used for 
checking within a range. A program to 
read the thermal voltage could include 
lines like this: 

IF X>62 AND X<68 

THEN PRINT "COOL END" 
IF X>56 AND X<62 

THEN PRINT "WARM END" 

Values used in the equalities came 
from an experiment where the glass 
bead thermistor was used as a temp- 
erature probe. Use your own values for 
specific applications. This circuit will 
have limited range because the output 
voltage will not go to zero. A better 
circuit would include a thermistor 
bridge with an amplifier. More linear 
operation and wider range temper- 
ature reading would then be possible. 
Notice that the supply voltage is 12 
volts. The voltage was obtained by 
using one of the expansion con- 
nectors. A couple of 6 volt batteries 
would work just as well. 

Any of the circuits discussed so 
far can be connected to a 16 pin com- 
ponent header. You may want to build 
an adapter out of a 16 pin header and 
a wire-wrap 16 pin socket. Solder the 
socket to the header, pin for pin. This 
way the game paddle can still be 
plugged in along with any special 
circuit you add on. Another way would 
be to make an extender cable. Run the 
cable out the back of the Apple and 
connect the circuits to the end of the 
cable. This way the cover won't have 
to be opened each time a new gadget is 
to be connected. Be sure to turn the 
power off before plugging in or re- 
moving any circuit from your com- 
puter. 

Arley Pascal Sez 

If you're experiencing problems 
with Pascal in your new language sys- 
tem, then you will appreciate these 
comments from N. Dealy: 

1. To keep C(ompile from 'going 
away' or having a spectacular blow-up 
use the swapping or double swapping 
option. The directives to use are 
(*$S+*) and (*$S++*), respectively. 
These directives keep you from over- 
flowing the 6502 and Pascal stacks. 

2. Finding files is easier if you use 
the correct syntax from within or out- 
side the F(ILER. Remember: Some- 
times you use the suffix and sometimes 
you don't. You may find it handy to 
keep notes at hand when you first start 
using the system. 

3. From the E(DITOR, you can 



write over an existing file if you 
Q(UIT and write to a named file. From 
within the editor, the system won't tell 
you if you already have a file by the 
same name. Keep a log of diskette and 
file names close by if this will be a 
problem. From the F(ILER, unlike the 
E(DITOR, you are prompted if you are 
about to destroy something. 

4. The Pascal language system 
does not support the clock boards. 
You must use the D(ATE command 
from the F(ILER to change the date. 

5. Trying to change the name of 
the default volume may cause some 
problems. The system actually has two 
special volumes — the default volume 
and the root volume. The default 
volume may be changed using the 'P' 
filer command. Any time you specify a 
file without specifying the volume 
explicitly this is the volume that is 
used. On the other hand, the root 
volume is the volume that the system 
was booted from and may not be 
changed. The work files are always 
written to the root volume. 

6. Direct connection of the con- 
sole keyboard to the printer is possible, 
too. (Useful if you want to enter titles 
on listings.) From within the F(ILER 
request a T(RANSFER from CON- 
SOLE: to PRINTER:. Then type your 
message, header or other info and end 
it with a Control C. The control C 
signals end of file from the console and 
your message will be transferred to the 
printer. 

7. When using L(INK you must 
specify the name you want followed 
by '.CODE'. Do this when you are 
prompted for the output file name. 
Otherwise, when you try to execute, 
you will get an error message. 

Autostart ROM 

Lots of things change when you 
plug in this new ROM chip. Some of 
the changes are nice and quite handy. 
Others can cause some inconven- 
ience. (But only if you have had your 
Apple a year or more and like to use the 
monitor routines a lot.) Here are some 
of the features: 

1 . Automatic Basic selection if a 
disk drive is not installed. 

2. Automatic booting if a drive is in 
slot 6 and a functioning diskette is in 
the drive. 

3. Extended screen editing cap- 
ability. 

4. Reset returns to the Basic in- 
stalled, not the monitor. 

5. Stop a listing and start it again 
with a Control S. Allows you to 
examine any part of your program. 

6. Suspend execution of a pro- 
gram with a Control S too. 

Some of the differences caused 
with autostart in place are: 



1 . No direct access to the monitor. 
If the monitor routines are used a lot, 
you must use a call such as CALL-151 
to get to the monitor each time reset is 
pressed. There are a couple of memory 
POKEs that can simplify this and let 
the reset key return program to the 
monitor, too. 

2. Some programs taking advant- 
age of routines in the monitor may not 
run. Several utility routines were re- 
placed with new ones for autostart 
features. 

But, for most of us, the new autostart 
ROM will make using the Apple easier 
and quite foolproof. In a business en- 



3LIST 

1000 REM ••••••••♦«••♦«••»••• 

1010 REM • DOLLAR FORMATTER » 

1020 REM »••*••*••••*«»•♦♦»♦• 

1030 : 

1040 LET D ■ i:T ■ 0: DIM D»<25) 

: HOME 

1050 print D: n ■■; 

I.16O INPUT "DOLLARS - ":D»<D> 

1070 IF D»(D) » "END" GOTO 1200 

1080 IF D»(D) * "0" THEN D»<D) = 

"0.00" 

1090 IF MID* <D«(D). LEN <D»<D> 

) - 2.1) = "." GOTO 1130 

1100 PRINT "INCORRECT FORM I" 

1110 PRINT 

1120 GOTO 1050 

li30 IF LEN <D«(D>) * < 7 GOTO 

1170 

1140 PRINT "NUMBER TOO LONG I" 

1150 PRINT 

1160 GOTO 1050 

1170 REM 

1180 LET T » T + UAL <D»<D>> 

1 185 LET D = D + 1 

1190 GOTO 1050 

1200 LET D ■= D - 1 

1 UO PRINT 

1220 FOR I * 1 TO D 

1230 print tab( 39 - len ( d« ( i 
) ) > ;d*< i > 

1240 NEXT I 

1250 PRINT IT» = STR« <T> 

1260 PRINT "TOTAL"; TAB< 30>"»"; 

TAB( 38 - LEN (T«> ) ;T» 



3RUN 






1 DOLLARS - 1234567 






INCORRECT FORM ! 






1 DOLLARS - 123456.78 






NJMBER TOO LONG ! 






1 DOLLARS - 1234.56 






2 DOLLARS - 345.98 






3 DOLLARS - 






A DOLLARS - 0.75 






J> DOLLARS - 195.75 






to DOLLARS - END 








1234 


56 




345 


98 







00 







75 




195 


75 



TOTAL 



» 1777.04 



Listing 1 
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Apple Cart cont'd... 

vironment, autostart provides com- 
plete load-and-go capability, a definite 
advantage for operator training and 
use requirements. 

Applesoft Formatter 

Apple chose to include graphics 
capability over formatting in their 
version of Microsoft Basic. Therefore, 
there is no PRINT USING command 
and corresponding imaging formatter. 
For most of us this is not a problem. 
Sometimes, though, you may want to 
line up columns containing dollars and 
cents values. Listing 1 illustrates a 
routine that will do this job. Also in- 
cluded in the routine are number 
length and format checks. And, the 
VAL and STR$ commands are used for 
string and real number conversions. 
Let's examine the program and see 
how it works. 

• Line 1040 initializes the variables and 
dimensions the length of the dollars 
column. Change the DIM value to be 
longer than your list. 

• Input is accepted by lines 1050 thru 
line 1080. Line 1050 numbers the in- 
put line, 1060 accepts the input, 1070 
checks to see if END was entered to 



terminate input and 1080 allows a '0' 
to be used if the entry has no value. 
My choice is to convert a no-value 
entry to 0.00 rather than leave it 
blank. 

• Form is checked in line 1090. The 
position of the period is checked. I 
assumed that the form is standard 2 
decimal place dollars and cents. If 
the entry is wrong the program re- 
turns to the input lines. 

• Total length of the string of numbers 
is checked in line 1130. If greater 
than seven characters, this example 
program sends you back to the input 
lines. (The 1170 following line 1130 
is part of the GOTO in line 1130.) 

Note that you may want to check 
for alpha characters at this point. A 
string parsing routine can be used to 
check the ASCII value of each char- 
acter. Of course, you can check the 
entry on the screen and change it 
before return is pressed. However, 
automatic error checking is more 
reliable; the computer doesn't get 
board or distracted. 

• Line 1 180 uses the VAL command to 
convert the D$ string to a real 
number. The value of T is adjusted 
with each entry and becomes the 
total sum of all the values entered. 

• In line 1185, the counter D is in- 



cremented for each value entered. 
Make sure the counter is in- 
cremented after the total is adjusted, 
otherwise you will never get a correct 
total. Line 1190 returns to line 1050 
for more input. 

• WhenENDisusedtoterminateinput, 
the program branches to line 1200. 
Because the D counter was in- 
cremented and no additional input 
was made, the counter needs to be 
decremented by one. 

• Lines 1220 to 1240 do the work of 
aligning all the inputs in a column. 
Each value is tabbed to some posi- 
tion, in this example 39, minus the 
length of the string D$. 

• In line 1250, total value T is con- 
verted to a string by using the STR$ 
command. This was done so the total 
could also be tabbed into position 
under the column of numbers. The 
word TOTAL, a '$' and the value of 
the column are printed by line 1260. 

With a disk based system, saving 
the input values as a file is quite 
straightforward. Consider how it might 
be done on tape using the STORE 
command. Hint: Remember the VAL 
and STR$ commands. Another pro- 
gram option would include the ability 
to subtract numbers and keep the total 
correct. □ 
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In this fifteenth column, we'll 
examine the problem of not-so- 
straight lines in graphics on the TRS- 
80 screen; two threshold detectors that 
can help you load marginal tapes and 
also copy tapes; two utility programs 
for editing, merging and verifying 
programs; and a short graphics pro- 
gram of interest to devotees of the cue, 
as well as game fans. 

Not-So-Straight Lines 

On the screen of a computer such 
as the Tektronix 4051 , a straight line is 
always a straight line. And a circle is 
always a perfect circle. That's because 
the 4051 uses vector graphics. All the 
expensive graphics systems use vector 
graphics; prices for the Tektronix 4051 
start at $5995. 

In less expensive systems, in- 
cluding all personal computers, raster 
scan is used. This is similar to a 
television screen, and all the graphics 
consist of brightened portions of 
horizontal raster lines. If a graphics 
line just happens to be exactly hori- 
zontal and is situated along a raster 
line, or is exactly vertical, then it will be 
a perfectly straight line. 

This doesn't always happen, how- 
ever, so that many lines in raster-scan 
graphics are somewhat irregular stair- 
steps made up of bits and pieces of 
short lines. This is similar to what 
happens in dot-matrix printing, which 
has to approximate, with a row of 
staggered dots, any straight line that's 
not exactly horizontal or vertical. 

Here's a program that demon- 
strates what "straight" lines look like 
on a TRS-80, at various angles from the 
horizontal: 

too as 

120 ihfvt -UIU snr-sia (.2 TO 4)";4 

130 CU 

140 ran x-2o to im 

ISO StT(X,T*10> 

160 mrr x 

170 MAD A 

1*0 IT A-n* GOTO 250 

HO FOK X-l TO 25/A STO S 



200 Y»A'X 

210 StT(X«0.Y*10) 

220 «XT X 

230 GOTO 170 

240 DATA .3,. 3,1,3.(9* 

230 POII Y-10 TO 35 

240 SIT(20.Y> 

270 MXt T 

2*0 GOTO 2(0 

Try several step-sizes, from 0.2 to 
4, to see what effect they have on the 
"solidity" of the lines. The further the 
line is from the horizontal, the smaller 
the step-size has to be for a continuous 
line. This is important if you want your 
lines to be as thin as possible. A step- 
size of 2 results in lines like these: 




while a step-size of .3, which is just 
enough to make the shortest stair-step 
line a continuous one, makes the 
longest stair-step line rather thick, 
because of overlapping: 




To make that longest line as thin as 
possible, with no overlapping, requires 
a step-size of 1 . Overlapping in that line 
begins at step-sizes of 0.9 and smaller; 



fragmenting begins at step-sizes of 1 .1 
and larger. Try step-sizes smaller than 
0.2. Do they draw lines any differently 
than a step-size of 0.2? 

In case you're wondering why the 
display doesn't include a line between 
the horizontal and the longest stair- 
step line, you can try to include one by 
adding 0.1 at the beginning of DATA 
line 240. Can you figure out how to 
prevent what happens when you do 
that? 

You can cheat by adding these 
lines: 



142 rOK 1-1 TO 14 STXf S 

144 t-.i«x 

1*4 srr(x«20.T*io) 

IM MXT X 



but in solving one problem, they create 
another. What is the new problem? 
How can you get around it? 

Can you program a similar display, 
but with about 24 lines radiating a fixed 
distance, say about three inches, from 
the center of the screen, to make a 
sunburst display? And can you then 
rewrite it so that the ends of the lines 
touch an imaginary rectangle drawn 
around the display, to draw a "rising 
sun" flag? 

An interesting but rudimentary 
book by Don Inman, "Introduction To 
TRS-80 Graphics" (Dilithium Press, 
Box 92, Forest Grove, OR 97116) 
spends almost the entire 139 pages on 
straight lines, except for a short 
chapter on Bending A Straight Line, 
which goes no further than sinewaves. 

The problem of not-so-straight 
lines becomes severe if you're inter- 
ested in putting something as complex 
as three-dimensional graphics on your 
TRS-80 screen. Even if you figure out 
how to put a 3D cube on the screen, 
and rotate it in various directions with 
matrices — which looks great in vector 
graphics — it will most likely look very 
clumsy on your TRS-80 raster-scan 
screen . ( If you've figured out how to do 
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this neatly, please let me know.) 

That's enough graphics for the 
moment, as there are many other 
things to talk about. 

Can't CLOAD That Tape? 

If you've bought tapes from at least 
half-a-dozen sources, chances are 
high that you couldn't CLOAD one or 
more of the tapes. Maybe it'll load now 
and then, maybe twice in a row, and 
then not for a week. Maybe only when 
Venus and Saturn are in conjunction, 
or when the humidity is over 93 
percent. Or maybe not at all. 

Two devices are available to help 
you read marginal tapes. Both are 
threshold detectors. 

Data Dubber 

The Data Dubber is one of several 
hardware and software items offered 
by The Peripheral People (Box 524, 
Mercer Island, WA 98040). Its plastic 
case is a little larger than the TRS-80 
power supply, and contains a 9-volt 
battery. 

The $49.95 Data Dubber, accord- 
ing to the catalog, "reconstructs data 
pulses from any tape to permit your 
system to CLOAD accurately and 
quickly . . . Corrects data pulse signals 
from tapes that have hum, distortion 
and even minor dropouts." 

The four pages of operating 
instructions go into detail to explain 
problems such as caused by a single 
missing bit, and "why a Data Dubber is 
even necessary," with the help of 
several waveform drawings. 

To use the Data Dubber, simply 
take the cord labelled Master Recorder 
and plug it into the EAR jack on your 
cassette recorder. Then take the TRS- 
80 cord that ordinarily plugs into the 
EAR jack, and plug that into the Data 
Dubber jack marked "TRS-80." 

Using a Data Dubber, I was able to 
CLOAD several tapes that otherwise 
were difficult or impossible to load 
without the device. But one particular 
tape, of an otherwise fine program, 
which previously I was able to load 
only twice and then never again, 
wouldn't load at all with either thresh- 
old detector. According to the Data 
Dubber instructions, ". . . it won't 
resurrect life. If you have a tape that 
has never been loadable under any 
circumstances, don't think the Data 
Dubber will create any missing data. It 
won't." 

Copying tapes with the Data 
Dubber is quite simple. Just connect 
the third lead, marked Slave Recorder, 
to the AUX jack of a second recorder. 



Using this connection, I was able to 
copy a machine-language tape, which 
as you may know is usually impossible 
with recorders the quality of the 
CTR-41. 

Data Enhancer 

The $45 DE-80 Data Enhancer 
from Microsette Co. (475 Ellis St., 
Mountain View, CA 94043) is also 
connected between the TRS-80's black 
plug and the recorder's EAR jack. 
Power is supplied by a small 6-volt 
battery eliminator that you plug into a 
wall outlet. 




DE-80 is accompanied by a single page 
of instructions. 

The DE-80 will load marginal tapes 
quite well, although of course it can't 
make up for a really bad recording. It 
can also be used for copying tapes, 
including machine-language tapes. 
However, you'll have to make up a cord 
with a male plug on each end, for 
connecting the DE-80's OUT jack to a 
second recorder's EAR jack. 

Both devices contain a LED that 
lights whenever a signal is detected on 
the tape, and which can be used to find 
the beginning or end of programs on a 
cassette. 

The LED can also help set the 
volume control properly. But because 
of the detector's sensitivity, the LED 
will light over a wider range than the 
range over which the TRS-80 will read 
the data accurately. So you have to set 
the volume at a narrower range than 
indicated by the LED. 

For example, I used a program that 
ordinarily will load from a CTR-41 at 
volume-control settings between 4 and 
5V 2 .When loading this with a Data 
Dubber, the LED goes on when the 
volume control is set anywhere be- 
tween 2 and 10. But the program loads 
correctly only when the setting is 
between 3 1 / 2 and 6 1 / 2 . 

The same program data turns on 
the Data Enhancer DE-80's LED 
anywhere between 6 and 10, although 
the program loads correctly only when 
the setting is between 7 and 10. (The 
difference between the correct-load- 
ing ranges of the two devices is due to 
differing circuit designs.) 

Remodel 

Anybody who writes Level-ll TRS- 
80 programs of any real length should 



look into a couple of very helpful 
utilities available from RACET Com- 
putes (702 Palmdale, Orange, CA 
92665). 

REMODEL takes its name from its 
three major functions. It allows the 
user to REnumber any part or all of a 
Basic program, MOve any part from 
one location to another, or DELete any 
range of lines. This includes read- 
justing line-number references wher- 
ever they occur in the program. 

First you load REMODEL using 
the SYSTEM command, then load or 
enter your Basic program. REMODEL 
resides in about 2K of the upper 
portion of memory. Since Basic 
programs to be modified reside in the 
lower portion of memory, they can 
coexist with REMODEL as long as 
required. 

After you've loaded or entered 
your Basic program, you call up 
REMODEL by entering ?USR(0), 
which brings up 



nu vi. o - arm data 

STAXT ♦ ?_ DCM7 WW? 



That underline is a blinking cursor 
at the start of the first field on the 
second line. At START you enter the 
line number "at which the desired 
action is to start," at END the line 
number where it is to stop, at NEW the 
starting new line number for the state- 
ments to be renumbered or moved, at 
BY the line-number increment for 
renumbering or moving, and at MODE 
the code for the action required. This 
last needs to be specified, with DEL, 
only for deleting lines; the other modes 
are selected automatically, depending 
on the values of START, END and 
NEW. 

If you've written a program that 
required adding many lines between 
the original ones, and you'd like to 
clean it up, simply call up REMODEL. 
For example, if you originally had 



3 ntlMr 1: GOTO 24 

24 nturr 2: coto i» 

25 rnicr Ji coto 4} 

SO nUHT 4: BCD 

4] miHT ll COTO 50 

125 nturr 4: COTO 25 



and want to have uniform line-number 
increments, you interact with the 
computer: 

STAjrt #15 IKM?125 mut'70 ITJ20 

and press ENTER. You could have put 
in NUM after MODE? but it isn't 
necessary. The system then asks 
permission to carry out the action 
you've specified, with 



and whether you enter Y or N, the 
cursor skips down to the START #? 
field. If you've entered Y, and then do a 
BREAK and LIST, you'll find 
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TRS-80 SOFTWARE 

PACKER: Automatically edits all or part ol your Banc 
program to ease editing, run taster, or save memory 
Has 5 sections 1. UNPACK — unpacks multiple state 
Basic program Unas into single statements main- 
taining program logic. Also inserts spaces and re- 
numbers lines tor easier editing 2. SHORT — 
shortens your Basic program by editing out all REM 
statements, unnecessary words and spaces. 3. PACK 
— executes UNPACK and SHORT, then packs line* 
into multiple statement lines. Maintains program 
logic. 4. RENUM — renumbers program line* In- 
cluding all QOTO's. etc. You specify increment. 
5. MOVE — moves any line or Mock ol lines to any 
new location in the program and renumbers lines. 
Written in machine language, supplied on tape in 3 
versions for 16K. 32K. and 48K systems Works under 
Level II and Disk Basic. $29 95 

DISASSEMBLER: Read, write, and copy system tapes 
Display and modify memory contents Disassemble 
ROM. DOS. and system tape* into Z80 Mnemonics. 
Search lor string* In memory. Much more" Includes 
32 pages ol documentation and other information. 
For 16K Level II $1995 

SYSTEM TAPE DUPLICATOR: Copy your system format 
tape*. Include* verify routine. 
For any Level II $12.95 

MICROSOFT FORTRAN: includes Fortran compiler, 
loader, editor, and library ol scientific functions. 
For 32K Level II and 1 Disk $90 00 

MICROSOFT ASSEMBLY LANGUAGE DEVELOPMENT 

SYSTEM: includes EDIT-80 Text Editor. MACRO-80 As- 
sembler. CREF-80 Cross Reference facility, and 
LINK-80 Linking Loader 
For 32K Level II and 1 Disk $90 00 

MICRO-BACKGAMMON by Carl Fowler 

For all Laval I or Level II $19 95 

MANY MORE items available. Write or call for tree 

catalogue. 

INSTRUCTION MANUALS for any program, except 
Microsoft's and Micro-Backgammon, are available 
for 20% of list price of program. Refundable when 
program is purchased. 

DEALER INQUIRIES INVITED 

Kansas residents add 3% state sales tax 

Call our 24 hour number 316-663-4811 or write 
COTTAGE SOFTWARE 
S14 N. Harding 
WlchlU. KS 67206 
CIRCLE 134 ON READER SERVICE CARD 



GET WITH OUR 

PROPERTY MANAGEMENT 

SYSTEM 

BEFORE THEIRS 

GETS TO YOU! 

APPLE & TRS-80 diskette versions 

* RENTAL INCOME PROGRAM 

• Renter Information Report 

• Rental Income Tracking 

• Late Rent Reporting 

* RENTAL EXPENSE PROGRAM 

• Expense Analysis By Building 

• Comparative Utilities Reporting 

• Yearly Totals For Tax Reporting 

(All reports may be printed) 
EITHER PROGRAM: $125 
TOTAL SYSTEM: $225 

Ask About Our 

Realty Analysis Modules 

At Computer Stores Everywhere 

or call (213) 372-4919 for C.O.D. 
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io run i: 

20 niirr 2: 

jo nun 3: 

to nm Si 

so ram 5: 

so ram t: 



COTO 20 
COTO to 
COTO 50 

COTO tO 
COTO 30 



which is easier to follow than the 
original. If you entered N, the line 
numbers are not changed, and you 
take it from there. 

With REMODEL, you can renum- 
ber just a few lines, such as changing 
24 and 25 to 20 and 30, or move lines 
24-50 to the end of the program, or 
move lines 50-63 between lines 5 and 
24, or delete lines 50-63. All it takes is a 
few entries in the INPUT menu. 

You can load REMODEL after a 
Basic program is in memory without 
destroying it, providing you've previ- 
ously set the MEMORY SIZE, at power- 
up time, to reserve the space required 
for REMODEL. 

REMODEL is $24.95; if you order, 
specify whether you have a 16K, 32K or 
48K system. If you buy REMODEL and 
later increase your memory size, you 
can order a larger version "for just the 
cost of handling — $5.00." 

PROLOAD 

RACET Computes has another 
program, PROLOAD, which "extends 
the power of REMODEL with features 
to LOAD all or any portion of a Basic 
program, COMBINE Basic programs 
with renumbering and merging into 
any location, SAVE combined/merged 
programs or any portion to tape, and to 
VERIFY bit-for-bit the contents of a 
saved program." 

The press release continues, 
"Users can now create libraries of 
Basic programs or DATA statements 
which can then be loaded individually 
or in combination with other programs, 
thus expanding programming pro- 
ductivity and versatility." 

PROLOAD is a subsystem of 
REMODEL, and requires about 3K of 
memory, which includes the space 
required for REMODEL, with which it 
must be used. If you already have 
PROLOAD, REMODEL alone is $1 4.95. 
A combination tape, PROLOAD + 
REMODEL, is $34.95. Again, specify 
16K, 32K or 48K. 

As an example, suppose you had 
two programs on tape, first program A 



to ram i: coto jo 

13 raiXT 2: » 

30 nm 3: COTO 13 



and then after it, program B 

23 ram t: COTO 33 
30 ram 3: sTor 

33 raiKT t: COTO 30 

With PROLOAD+REMODEL, you 
can load program A into memory, and 
then load program B, with its line 



numbers renumbered from 25-35 to 
40-60, so that line 30 on the second 
program doesn't interfere with line 30 
on the first. 

Or you can load only lines 30 and 
35 of program B at the end of program 
A, renumbering them to 50 and 60, and 
omitting line 25. Or load lines 30 and 35 
from B between lines 15 and 30 of A, 
renumbering to 20 and 25. Or load 25 of 
B between lines 15 and 30 without 
renumbering. 

You can also save the contents of 
memory in this last example, from lines 
15 to 25, on tape, renaming it program 
C. And you can verify the tape thus 
produced, comparing it with the 
contents of memory, by using =C= in 
the input menu instead of C. If there'sa 
mismatch, the display indicates BAD 
COMPARE. 

The INPUT menu in PROLOAD is 
the same as described under 
REMODEL. 

Either REMODEL or REMODEL + 
PROLOAD can be used while operat- 
ing under DOS, and the excellent 12- 
page manuals that accompany each, 
also include an added page on how to 
use these utility programs with disk. 

REMODEL can make programs 
more readable and easier to document, 
and PROLOAD can increase your 
programming productivity by allowing 
you to select from a library of routines. 

RACET has several other ma- 
chine-language utility programs, a 
couple of sophisticated math and 
optics programs in Basic , and a 
"special formulation cassette tape 
optimized for microcomputer applica- 
tions." 

Short Program #7 

From Leiderdorp in The Nether- 
lands comes a Level-ll program, sent 
by W.J. Hendriks, who writes, "I have 
decided to send it to you because I 
have noticed that a lot of TRS-80 users 
are unable, or find it hard, to create 
their own TV-like ballgames. The 
program just shows one of the prin- 
ciples you should use." 

io clsicliaji tt:D(nirr *-ti Muroot 

20 X-RK>(62):Y-l*IO(lt):SX-l:SY-l 

30 ram 9 o,sniiiics(6t,i7«) :nm « tto.sTKiacxts.ni);: 

P0«X 163S3.131 

to ra i-«t to «9t stir n-.mtn 9 i.cxmtm) tas<63> 

OUt$(191);:l*»T I 
50 TX-X«X:IT TX<1 OR TX>6J T«» SX— SX:COTO 50 
60 TTfY*SY:IT TY<1 0* TY>lt TtfEJi SY— SY:COTO 60 
70 X"TX:Y-TY:r-X»Y«*t:mi»T 9 F,"«";:C0SUS 100 
80 FFIfrT C F," ";:COTO 50 
100 nil TL-1 TO S:WXT TLiRSTUFM 

The program creates a rectangle 
with line 40, and then within it bounces 
an asterisk back and forth forever, 
demonstrating eternally that the angle 
of reflection equals the angie of 
incidence, an important fact for pool 
and billiards players. 

To slow down the flickering of the 
asterisk, change the loop in line 100 to 
FOR TL=1 TO 20. or to FOR TL=1 TO 
50, or even more. ■ 
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TECHNICAL APPLICATIONS PROGRAMS 
FOR YOUR HOME, SCHOOL, OR SMALL 
BUSINESS WHICH MAKE YOUR MICRO-COMPUTER 
INVESTMENT WORTHWHILE! 

Tape Manager and Advanced Statistics, CS-3303(16K) 

This package performs statistical tests never before available on small computers, and may well be the 
ultimate in statistical applications for the 16K TRS-80. Its cassette based data system allows you to store, 
retrieve, and transform data files for use in numerous tests. Detailed analysis of varience, correlation, multiple 
linear regression, two variable statistics, and descriptive statistics are included. These complex capabilities 
are complimented by the convenient user-oriented format. This package features a vinyl binder and 
comprehensive manual. The Level II Package is $24.95. 

Graphic Package, CS-3301 (16K) 

Text and graphics are skillfully combined to plot a variety of graphics functions. Display your data in sitok 
easy-to-read bar, line, or cartesian coordinate X,Y graphs. A polar coordinate graphing program automatically 
scales and labels polar functions. The parametric graphing routine graphs|X vs Y in terms of an independent 
variable. Two regression routines analyse data to see how well a series of points fit on a linear or quadratic 
function so the information can be effectively entered into the graphing routines (for Level II) $7.95. 
A Tape Manager/Graphics/Statistics package is also available for Level I, CS-2301 (4K)$7.95. 
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Investment Analysis, 

CS-3305(4K) 

An investment specialists tool. 
Programs in this package In- 
clude regression analysis, 
stock market simulations, 
market/stock values, risk ana- 
lysis, time related investments, 
and tax analysis (Levels I and 
II). $49.95 



Text Processing, 

CS-3302(16K) 

This program turns your TRS- 
80 and line printer into a line 
oriented text-processing sys- 
tem. A special business leter 
format is included. You can 
edit and modify your work. 
Save text on cassette tapes, 
and print out perfect docu- 
ments every time. There are no 
complicated new commands 
to learn so anyone can Insert 
or delete lines with ease (for 
Level II). $14.95 



Checking Account, 

CS-3304 06K) 

Keep track of where your 
money is going and how 
effective your budget is. This 
program helps you keep track 
of individual and monthly 
payments. Checks are auto- 
matically sorted by payee, 
date of payment, or other 
catagorles and all information 
is saved on cassette (for 
Level II). $7.95 



serasafcioRal 
software 



creative 

competing 

software 



Sensational Savings! Take ad- 
vantage of our $1 discount at 
your local computer store with 
the certificate on page 119 
of this issue. If your favorite 
retailer does not stock the 
software you need have him 
contact our retail marketing 
department. Or order directly 
fromCreative Computing. Send 
your check plus $1 shipping 
and handling per order to 
Creative Computing Software, 
Dept. 202, P.O. Box 789-M, 
Morristown, NJ 07960. Visa, 
MasterCharge, or American 
Express are also welcome. For 
faster service call in your bank 
card order toll free to 800/631- 
8112. In NJ call 201/540-0445. 
Circle reader service #207 for 
your FREE 20 page illustrated 
catalog of micro computer 
software. 



For ■ FREE Sensational Software Catalog of over 400 programs for eight popular systems circle reader service #207. 
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Electronic 
Transactions 



I am happy to hear from you. and encourage 
your correspondence I will try to acknowledge all 
correspondence, and a SASE makes things easier 
lor both ot us Please send your letters to 
"Personal Electronic Transactions" c/o PO Box 
354. Palo Alto. CA 94301 




by Gregory Yob 



Before You Send Your PET Away . . . 

When you are faced with a balky 
PET, there's a sneaky trick that will 
often restore your beloved machine to 
normal service. ThalC sockets used by 
Commodore are not premium grade, 
and this leads to two problems as time 
passes. First, the changes in tempera- 
ture will make some ICs tend to "walk" 
up out of their sockets. Second, 
sometimes the contacts will corrode 
and become flakey. (Electrically, that 
is.) 

The cure to this is: Turn off your 
PET, and open the cover. Using your 
thumb, gently and firmly press down 
on every socketed IC on the main 
board. Several ICs will usually slide 
down a bit into their sockets. Close up 
your PET, and turn it on. In many 
cases, your problems will have gone 
away! 

PET Has A Card 

Those of you who knew com- 
puters before micros came along know 
that many manufacturers will supply 
small map-folded cards with summa- 
ries of their machines hardware or 
software printed in teeny type. All real 
programmers know you can't ever 
remember if it is MID$(A,B,C$) or 
MID$(A$,B$,C) or whatever — so these 
cards come in handy. Leading Edge at 
PO Box 3872, Torrance, CA, 90510 
now offers a fold-out card for the PET 
for $3.50. The card is a concise 
summary of the PET's BASIC, I/O, 
Character set, Monitor and often used 
PEEK/POKE locations. Both PETs (old 
and new) are indicated where needed. 

There are a few minor errors, but I 
like mine enough to keep it stashed 
under my PET. 

PET Plotting Package 

If you are one of the lucky few with 
an incremental plotter, West Coast 



Consultants, 1775 Lincoln Blvd, Tracy, 
CA 95376, has a plotting package, 
CURVE, for about $75.00. (This re- 
quires a PET with 24 or 32K in most 
cases). The program is initially set up 
for the Houston Instrument's HIPLOT 
plotter. I haven't been able to try this 
package out, but the samples I saw 
looked reasonably good. 

Have You Noticed? 

The last local PET club meeting I 
attended had about 1 00 people present 
— some 95 men and maybe 5 women. 
Of the women, only two or three 
seemed really interested — the others 
were along as companions to their 
men. 

This is a common situation in 
personal computing — and it makes 
me wonder if personal computing is 
really a male-oriented hobby? In a 
more constructive vein, how do we get 
more women involved? 

I am very interested in any re- 
sponses — especially from any women 
who read this column, or men who 
have successfully introduced com- 
puters to women (or vice versa!) 

On Tokens And Such 

When a line of BASIC is entered on 
your PET, the characters of the 
keywords (like PRINT, INPUT, 
GOSUB, etc.) are replaced with one 
byte tokens. Though this does save 
some space (we will look into this 
later), the main reason for tokenizing 
comes when the BASIC program is 
RUN. Each BASIC keyword corre- 
sponds to a subroutine in the PET's 
ROM. When a line of BASIC is exe- 
cuted, the presence of a token informs 
the PET of where to go next. If tokens 
weren't there, the PET would be forced 
to look at the characters in the current 
line and check for keywords each time 
the line is executed. This is compli- 
cated and slow. 



If you have an "old" PET, the 
tokenizing of the BASIC line leads to 
some odd things. (The "new" PETs 
have been changed to remove this 
problem — by having two tokens, 
GO and TO. You might want to try 
this out anyways.) It seems that one 
BASIC keyword, GOTO, is permitted 
to be GO TO — that is, a blank is part of 
the keyword in one of its variations. 
Since BASIC ignores blanks, and TO is 
a separate valid keyword, an unusual 
solution was used. (I have less compli- 
mentary adjectives which don't belong 
in these fine pages.) Here are some 
examples: 

10 LISTS IN THE LAST EPICUREAN 1ANQUET 
LIST 

10 LISTSIN THE LASTEPICUHEAN AANQUET 

The PET didn't exactly copy what you 
entered. Where keywords are found, 
blanks are removed. S IN is seen as 
SIN, and ST EP becomes STEP. Some- 
times this is a hazard in programs, for 
example: 

ST AND R2 becomes S TAN D R2 
F OR 6 becomes FOR 6 

The "cure" for the GOTO vs GO 
TO problem was to remove all blanks, 
tokenize, and then replace the blanks 
left between the tokens. In most 
practical cases, simple rearrange- 
ments or parentheses will remove any 
mysteries of this kind. 

If you have a "new" PET, try this 
out and let me know what happens. 

Space Savings of Tokens 

Back in the early days of PET, 
BASIC programs from other machines 
were entered. Often, a 12K program 
could be fitted into the PET — due to 
the tokenizing of the keywords. An 
interesting question is to find out how 
much space is saved with the tokens 
for typical programs. 
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PET, cont'd. 



I modified the "self-list" program 
(See Sep 79 Column) to look for the 
tokens in a BASIC program and add up 
the space saved by the tokens. To use 
this program, LOAD the program you 
want to measure and then append the 
program below. (If you have a Pro- 
grammer's Toolkit! If not, LOAD your 
target program first and then enter this 
one.) 

(3000 REN TOKEN SPACE ANALYSIS 

63010 REN R00IFIC0 FROH SELF-USTINC PCH 

6)020 REM BY CRECORV TO! 

6)030 OEr FNF(X)-PEEK(X)»2S6«PE£K<X»I) 

(30V) REM IP IS (.INK POINTER 

63050 REN lH IS LINE NUMBER 

63060 LP-1025 

63070 REN TP is start OF TEXT 

63080 PEN CH IS TEXT CHAP 

63090 PEN HOVE OATA POINTEP TO TOKENS 

63100 PEN APPAV 

63HO OATA .. 

63120 REAOAS:IFAS<> ' .. "TMEN63120 

63130 PEN SS HOLDS TOKENS 

63140 DIHSS<75):FOAJ-»T07S:REAOSS(.l): 

NEXT 
63150 OATA END. FOP. NEXT, OATA, INPUT*, 

INPUT. DIN, PEAO, LET ,C0T0 
63160 DATA PUN. IF. RESTORE, COSUO. RETURN. 

REM, STOP. ON. WAIT 
63170 OATA LOAD. SAVE, VERIFY, DEF. POKE, 

PRINT*. PRINT, CONT 
63180 DATA LIST, CIR.CMO. SYS, OPEN. CLOSE, 

GET.NEW.TABI.TO.FN 
63190 DATA SPC(. THEN, NOT, STEP, ♦ .-,•,/,♦. 

ANO,OR,>...< 
63200 DATA SCN.INT.AIS.USP.FRE.POS.SQP. 

PNO. LOG. EXP, COS, SIN 
632fO OATA TAN, ATN, PEEK. LEN.STPS.VAl. 

ASC.CNRS, LEFTS. RIGHTS 
63220 DATA HIOS. HOOPS! 
63230 REN HAKE SAVINGS ARRAY 
632*0 DIN St(75):FOAJ-IT075 
63250 SJ(j)-LEN(SS('))-::NEXT 
63260 PRINT'clr TOKEN SAVING ANALYSIS" 
63270 PRINT SV-« 

63280 LN-FNF(LP«2) :TP-LP»* :LP-FNF (LP) 
63290 IF LN-630OO THEN 63*10 
63300 PRINT LN;TAB(6); 

63310 O.Q># 

6)320 CH-P£EK(TP):IFCH-»THEN63*00 

63330 TP-TP.l 

633*0 IF CH-3* THEN QQ- QQ» I AN I 

63350 IF CH >I28 THEN 63320 

63360 IF QQ THEN 63320 

63370 IF CH>203 THEN CH-203 

633*0 TC-TC«I:SV-SV»S<(CH-I28) 

63390 PRINT SS(CH-I28)" IP ";:GOTO 63320 

63*00 PRINT:IFLP>#THEN 63280 

63*10 PL-TP-1025 

63*20 PRINT'dn dn PROCRAN LENGTH IS :"PL 

63*30 PRINT'NUNBER OF TOKENS »p ip:"TC 

63**0 PPINT'IYTES SAVED tp IP >p >p tp >p IP 

"SV 
63*50 PRINT"* SAVING sp tp IP IP >p Ip sp >p 

tp ip :"100«SV/PL 

When this is RUN (from RUN 63000), 
the screen clears, the title is printed, 
and then the line numbers of the 
program being analyzed appear along 
with the tokens in that line. (It is 
interesting to watch the tokens pat- 
terns . . .) When the program is 
finished, the report appears — here is 
an example: 

PROCRAN LENGTH IS : 1578 

DUMBER OF TOKENS : 1*3 

•YTES SAVED : 2*2 

t SAVINGS I 15.3358682 

I checked several programs, 
mostly common games, and got these 
results: 



N«wn# 


Length 


« 
Tokens 


Saved 


% 
Saved 


BIORHVTHM 


1290 
2001 


106 
264 


163 

340 


12.06 
16.90 


LUNAR 

LANDER 
WUMPUS 

SQUIGGLE 
BIGTIME 


2644 
4904 
1978 
2029 


27S 
516 
143 
102 


905 

1026 
242 
464 


10.01 
22.36 
15.34 
23.90 



The average savings comes to 
about 19% — if your program is not 
filled with PRINT and DATA state- 
ments, the savings will be increased. 
The 7167 bytes of an 8K PET are 
equivalent to some 8570 bytes of non- 
tokenized program text. 

The September 79 column ex- 
plains the principles used in TOKEN 
SPACE ANALYSIS — in this case, the 
program simply looks for tokens and 
sums up the space savings for each 
token. 

Tokens For Text 

If BASIC programs are made 
shorter by providing tokens for the 
keywords, how about using the same 
trick on normal text? Basic English is 
made of some 800 words, and some 
words appear more often than others. 

Figure 1 shows a chart of the 100 
most common English words. If you 
want to spend some time with a 
calculator (or PET), Figure 1 yields 
these facts: 1 ) About 50% of the words 
in ordinary text will be on this list. 
2) The average savings of a token is 
around 3.4 characters. 3) The average 
text compression will be around 30%. 

To see if this is true, I wrote a small 
(?) program which permits the entry of 
a text sample, tokenization and unto- 
kenization of the text — and a report on 
how well all this went. The first task is 
to make a primitive text editor and to do 
some initialization: 



10 OIN LX(100).SS(IOO).TS(IOO).WS(100) 

20 F0RJ»IT0IO0:READWS(J):HEXT 

100 PRINT'clr TOKEN TEXT PROGRAN 

110 PRINT"-- IY GREGORY V01 

120 PRINT'dn dn NEW): 

130 PRINT'dn E - EDITOR 

1*0 PRINT'dn T - T0KENI2E 

150 PRINT'dn U - UNT0KENI2E 

160 PRINT'dn dn CHOICE:", 

170 GETAS:IFAS-""THEN170 

180 IF AS*"E"THEN COSUt 1000 

190 IF AS-"T"THEN COSUI *0O0 

200 IF AS-"U"THEN COSUI 5000 

210 GOTO 100 

1000 PRINT'clr EDITOR 

1010 PRINT'dn THIS IS A SIMPLE EDITOR 

1020 PRINT'VHICH USES LINE NUMBERS 

1030 PRINT L IKE IASIC DOES. 

10*0 PRINT'dn LIST WILL SHOW THE TEXT 

1050 PRINT'ip ip ip ip ip ip AND WILL 

HALT ON THE 'SPACE' 
1060 PRINT'ip ip ip ip >p ip KEY. 
1070 PRINT'dn EXIT LEAVES THE EDITOR. 
1080 PRINT'dn dn PRESS KEY TO START 
1090 CETAS : I FAS-'"'THEN 10»0 
1100 PRINT'clr"; 
1 1 10 INPUT TS 

1120 IF TS-"LIST" THEN 1300 
1130 IF TS-"EXIT" THEN RETURN 
11*0 IN-INT(VAL(TSI) 
1150 IF LN< I OR LN >32760 THEN PRINT 

">' I CHORE D'<": GOTO 1110 
1160 COSUB 8500 

1170 IF LEN(TS)<-LEN(STRS(LN))THEN 1260 
1180 TS-MI0$(TS.LEN(STRS(IN))«1) 
1 190 REN REPLACE OR ADO TO EHD 
1200 IF LN-Ll(L) OR lld>-» THEN SSd)- 

TS:l»U)-lN:C0T0 1110 
1210 REN INSERTION (SLOWII) 
1220 IF 1-101 THEN PRINT">FUll"":C0T0 1110 
1230 FORK-100 TO l»1STEP-1:lt(K)-lt(K-l) 

:SS(K)-SS(K-I> NEXT 
12*0 L«l)>LN:SS(l)-T$:C0T0 1110 
1250 REN DELETION 
1260 IF LtdlOlH THEN 1110 
1270 FOR K-l TO 99:Lt(K)-l*(K»l):SS(K> 

SS(K»1).«XT 
1280 lt(100)-p:SS(IOO)-"":COTO 1110 
1290 REN LIST 
1300 FOR L-l TO 100 
1310 IF Lt(l)-1 THEN 1110 
1320 GETAS:IFAS<>""THEN 1110 
1330 PRINT Lt(L)SS(L):NEXT:C0T0 1110 



8500 REM SEARCH FOR LIHENUNBER 
8510 FOR l-l TO 100 
8520 IF LN<- lt(l) THEN RETURN 
8530 IF Lt(L) - I THEN RETURN 
85*0 NEXT: RETURN 

9000 DATA A. ABOUT .AFTER. ALL, AN. AND. ANY. 

ARE, AS, AT, BE, BEEN, BUT, BY. CAN, COULD. 

00 
9010 OATA EVEN, FIRST, FOR, FROM, GREAT, HAD, 

HAS, HAVE , HE, HER, HIH, HIS, I, IF, IN, 

INTO 
9020 DATA IS. IT, ITS. LIKE. MADE. MAN. MAY. 

HE .HICHT ,N0RE .MOST .MUCH, MUST .MY , 

NEW, NO 
9030 OATA N0T,N0W,0F,0LD,0N,0NE.0NIY,0R, 

OTHER, OUR. OUT. OWN, SAID, SHALL, SHE 
90*0 DATA SHOULD. SO, SOME, SUCH. THAN. THAT. 

THE, THE IP, THEN, THEH. THE RE, THESE 
9050 OATA THEY, THIS, THOSE, TIHE. TO, TWO. 

UP, UPON, US, VERY .WAS, WE, WELL .WERE 
9060 OATA WHAT, WHEN, WHICH, WHO, WILL. WITH. 

WOULD, YET, YOU, YOUR 



So, what does this get us? The 
arrays in Line 10 are: L%( ) to hold the 
line numbers in the Editor, S$( ) to hold 
the untokenized text, T$() to hold 
tokenized text, and W$( ) to hold the 
100 most common English words. Line 
20 reads the words into W$, and Lines 
100 to 210 take care of a simple menu 
and GOSUBs to the selected action. At 
present, only "E" will work. 

The DATA statements in 9000 hold 
the words list. Don't worry about the 
3-line lines — they will fit on the PET, 
and are expanded here for layout into 
one column. 

The Editor is designed to work like 
the PET's BASIC editor — you enter a 
line number and some text. A line 
number by itself will delete a line. The 
line numbers are stored in L%. and the 
text in S$. These are kept in increasing 
order of line numbers — which means 
a bit of shuffling when an insertion or 
deletion is done. If you need a minimal 
Editor, steal this code! 

Lines 1000 to 1090 simply explain 
the Editor — I am too lazy to just show 
it once — so you will see the instruc- 
tions every time you select "E." Lines 
1 1 10 to 1 130 enter a line and check for 




"The company replaced me 
computer Ethel!... I wonder 

COmeS next!" ©Creatii* Computing 
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Data Acquisition Modules (WM) 

3 1 ^ 








The world we live in is full of variables we want to 
measure. These include weight, temperature, pressure, 
humidity, speed and fluid level. These variables are 
continuous and their values may be represented by a 
voltage. This voltage is the analog of the physical varia- 
ble. A device which converts a physical, mechanical or 
chemical quantity to a voltage is called a sensor. 

Computers do not understand voltages: They under- 
stand bits. Bits are digital signals. A device which con- 
verts voltages to bits is an analog-to-digital converter. 
Our AIM16 (Analog Input Module) is a 16 input analog- 
to-digital converter. 

The goal of Connecticut microcomputer in designing 
the DAM SYSTEMS is to produce easy to use. low cost 
data acquisition modules for small computers. As the 
line grows we will add control modules to the system. 
These acquisition and control modules will include 
digital input sensing (e.g. switches), analog input sens- 
ing (e.g. temperature, humidity), digital output control 
(e.g. lamps, motors, alarms), and analog output control 
(e.g. X-Y plotters, or oscilloscopes). 
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Analog Input Module 
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The AIM 16 is a 16 channel analog to digital converter 
designed to work with most microcomputers. The 
AIM16 is connected to the host computer through the 
computer's 8 bit input port and 8 bit output port, or 
through one of the DAM SYSTEMS special interfaces. 

The input voltage range is to 5.12 volts. The input 
voltage is converted to a count between and 255 (00 
and FF hex). Resolution is 20 millivolts per count. Ac- 
curacy is 0.5% ± 1 bit. Conversion time is less than 100 
microseconds per channel. All 16 channels can be 
scanned in less than 1 .5 milliseconds. 

Power requirements are 12 volts DC at 60 ma. 

The POW1 is the power module for the AIM16. One 
POW1 supplies enough power for one AIM 16, one 
MANMOD1, sixteen sensors, one XPANDR1 and one 
computer interface. The POW1 comes in an American 
version (POW1a) for 110 VAC and in a European ver- 
sion (POW1e) for 230 VAC. 



AIM16. 
POW1a 
POW1e 



S 179.00 
$ 14.95 
$ 24.95 
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Connectors 
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The AIM 16 requires connections to its input port 
(analog inputs) and its output port (computer inter- 
face). The ICON (Input CONnector) is a 20 pin, solder 
eyelet, edge connector for connecting inputs to each of 
the AIM1 6's 1 6 channels. The OCON (Output CONnec- 
tor) is a 20 pin, solder eyelet edge connector for con- 
necting the computer's input and output ports to the 
AIM16. 

The MANMOD1 (MANifold MODule) replaces the 
ICON. It has screw terminals and barrier strips for all 1 6 
inputs for connecting pots, joysticks, voltage sources, 
etc. 

CABLE A24 (24 inch interconnect cable has an inter- 
face connector on one end and an OCON equivalent on 
the other. This cable provides connections between the 
DAM SYSTEMS computer interfaces and the AIM 16 or 
XPANDR1 and between the XPANDR1 and up to eight 
AIM 16s. 



ICON. 
OCON. 

MANMOD1 . 
CABLE A24 



$ 9.95 
$ 9.95 
$59.95 
$19.95 
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XPANDR1 




The XPANDR1 allows up to eight AIM 16 modules to be 
connected to a computer at one time. The XPANDR1 is 
connected to the computer in place of the AIM 16. Up to 
eight AIM 16 modules are then connected to each of the 
eight ports provided using a CABLE A24 for each 
module. Power for the XPANDR1 is derived from the 
AIM 16 connected to the first port. 

$59.95 
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TEMPSENS 




This module provides two temperature probes for use 
by the AIM16. This module should be used with the 
MANMOD1 for ease of hookup. The MANMOD1 will 
support up to 16 probes (eight TEMPSENS modules). 
Resolution for each probe is 1°F. 

TEMPSENS2P1 (-10°Fto 120°F) . . . $49.95 ) 
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Computer Interfaces 
and Sets 






For your convenience the AIM 16 comes as part of a 
number of sets. The minimum configuration for a usable 
system is the AIM16 Starter Set 1. This set includes 
one AIM 16, one POW1, one ICON and one OCON. The 
AIM 16 Starter Set 2 includes a MANMOD1 in place of 
the ICON. Both of these sets require that you have a 
hardware knowledge of your computer and of computer 
interfacing. 

For simple plug compatible systems we also offer 
computer interfaces and sets for several home com- 
puters. 

The PETMOD plugs into the back of the Commodore 
PET computer and provides two PET IEEE ports, one 
user port and one DAM SYSTEMS port. The PETMOD is 
connected to the AIM 16 or XPANDR1 with CABLE A24. 
The PETSET1 includes one PETMOD, one CABLE A24, 
one AIM16. one POW1 and one MANMOD1. To read 
and display a single AIM 16 channel (N) using the 
PETSET1 the BASIC statements 

l0M5»42».N:C0M6V426.Z55:X-KttK< 194/1 ):f(< INI "CHANNIL -«--"X 

are all that is needed 

The KIMMOD plugs into the COMMODORE KIM ap- 
plications connector and provides one application con- 
nector and one DAM SYSTEMS port. The KIMMOD is 
connected to the AIM 16 or XPANDR1 with CABLE A24. 
Assembly and machine language programs for reading 
and displaying data are included. The KIMSET1 in- 
cludes one KIMMOD, one CABLE A24, one AIM16, one 
POW1 and one MANMOD 1. 

All sets come in American and European versions. 

AIM 1 6 Starter Set 1 a ( 1 1 VAC) . . . $ 1 89.00 
AIM1 6 Starter Set 1 e (230 VAC) ... $ 1 99.00 
AIM 16 Starter Set 2a (110 VAC) ... $259.00 
AIM1 6 Starter Set 2e (230 VAC) . . . $269.00 

PETMOD . . . S 49.95 
KIMMOD ... $ 39.95 
PETSETIa. . . $295.00 
PETSETIe . . $305.00 
KIMSETIa... S 285.00 
KIMSETIe... $295.00 
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Coming Soon 



TEMPSENS-2P with other temperature ranges. Inter- 
faces for TRS-80, APPLE, AIM65. Light sensors. Out- 
put modules. Contact us for price and availability. 



Dealers 



Give your potential customers a reason for buying your 
computers. We offer excellent discounts to legitimate 
dealers. Contact us for our dealer pack. 



Our Guarantee of Satisfaction 



Our customers are our most important asset. We want 
you to be pleased with whatever you purchase from us. 
We strive to offer top quality products at reasonable 
prices. We believe you should see an item before you 
spend your hard earned cash for it. 

Ask for a demonstration at your local computer store 
so you can be sure our products perform as you want 
them to perform. Your dealer is a valued source of infor- 
mation and advice. 

If you cannot see our products in advance, and order 
direct from us, we offer a money back guarantee. If our 
products don't perform as you expect, return the mer- 
chandise to us within 30 days, in its original condition, 
and we will refund the purchase price. 

Our standard warranty for all our products is 90 days. 
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Order Form 



CONNECTICUT microCOMPUTER , Inc. 
HO POCONO ROAD 
BROOK FIELD, CONNECTICUT 06*04 
TEL (203) 775-9659 TWX 710 45600S2 



QUANTITY 


DESCRIPTION 


PRICE 


TOTAL 


































































































SUBTOTAL 




Handling and shipping — add par order 


$300 


Foreign orders add 1 0% lor AIR postage 




Connecticut residents add 7\ sales tax 




TOTAL ENCLOSED 





COMPANY ._ 
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THE COMMONEST ENGLISH WORDS 

Below are listed the hundred most frequently used words in English. The fig- 
ores give occurrences in 242,432 words of English text taken from fifteen English 



THE 


IS568 


OR 


IXOI 


WHEN 


603 


ONLY 


309 


OF 


9767 


HER 


1093 


WHAT 


57o 


ANY 


302 


AND 


7638 


HAD 


1062 


YOUR 


533 


THEN 


298 


TO 


5739 


AT 


1053 


MORE 


5*3 


ABOUT 


*94 


A 


$074 


FROM 


1039 


WOULD 


5x6 


THOSE 


288 


IN 


43" 


THIS 


102 X 


THEM 


498 


CAN 


»«5 


THAT 


3017 


MY 


963 


SOME 


478 


MADE 


284 


IS 


2509 


THEY 


959 


THAN 


445 


WELL 


*»3 


I 


2293 


ALL 


881 


MAY 


44< 


OLD 


282 


IT 


"55 


THEIR 


8*4 


UPON 


430 


MUST 


280 


FOR 


1869 


AN 


789 


ITS 


4*5 


US 


*79 


AS 


1853 


SHE 


775 


OUT 


387 


SAID 


276 


WITH 


1849 


HAS 


753 


INTO 


387 


TIME 


*73 


WAS 


1761 


WERE 


75* 


OUR 


386 


EVEN 


372 


HIS 


173* 


ME 


745 


THESE 


385 


NEW 


265 


HE 


1727 


BEEN 


720 


MAN 


383 


COULD 


»64 


BE 


I53S 


HIM 


708 


UP 


369 


VERY 


*59 


NOT 


1496 


ONE 


700 


DO 


360 


MUCH 


252 


BY 


1392 


SO 


696 


LIKE 


354 


OWN 


»S» 


BUT 


1379 


IF 


684 


SHALL 


3S« 


MOST 


*5i 


HAVE 


1344 


WILL 


680 


GREAT 


340 


MIGHT 


»5<> 


YOU 


1336 


THERE 


668 


NOW 


331 


FIRST 


*49 


WHICH 


1 291 


WHO 


664 


SUCH 


3*8 


AFTER 


M7 


ARE 


1222 


NO 


658 


SHOULD 


3*7 


YET 


»47 


ON 


"55 


WE 


638 


OTHER 


320 


TWO 


*44 



Figure 1- Common Words Table 



the two commands LIST and EXIT. 
Line 1140 grabs the line number and 
1150 checks for a legal number, 
(remember that 32767 is the largest 
legal integer in the PET.) An illegal line 
is "IGNORED*. 

Subroutine 8500 scans through 
the line numbers array L% to find 
where the entered line should go. A 
zero line number in L% means that all 
the current lines have been looked at. 
We end up with these possibilities: 

1) L= 101 

The text area is full, (unlikely!) 

2) L%(L) = 

Add line to end of text. 

3) L%(L) = LN 

Change a line or delete it. 

4) L%(L)<>LN 

Insert or ignore. 

These conditions will be handy later. 

Line 1170 is a check for a line 
number without text — and jumps to 
the deletion code. Line 1 200 checks for 
replacement or adding to the end of 
text. Fortunately, the add-to-end is 
simply replacing the line at L which 
was previously empty. The line number 
is replaced (often not needed, but not 
worth checking for) and the text 
inserted in S$. 

Insertion is slow and painful 
(cause I'm lazy and want to get on to 



tokenizing, remember?). Line 1220 
checks for the 'FULL* condition. Then 
we "ripple up" all the text with larger 
line numbers to create a "hole" — done 
in 1230. Line 1240 does the insertion. 

Deletion is similar — with a "ripple 
down" and the removal of the line # and 
text at the end. 

LIST simply prints the line # and 
text — with a check for a keyboard 
entry between each line to allow a 
SPACE to halt the listing. 

This Editor, being simple, won't 
take text after commas, and is sus- 
ceptible to the other faults of the PET's 
INPUT statement. 

To tokenize some text, each word 
is found by looking for blanks. Just as 
the PET sometimes includes a paren- 
thesis in a token, like SPC(, the space 
after each word will be included in 
each token. (Even "I" will save a byte!). 
When text is unfolded, the added space 
will be replaced, and the text will be 
normal again. The codes for the tokens 
are made by looking at the position of 
the word in W$ and adding 128. For 
example, the token for ABOUT is 
CHR$(130). 

Here is the rest of the program: 



4000 PRIHT"clr TOKENIZE TEXT" 
4010 PRINT"dn do HAVE. PATIENCE. I I 

■UT SURE 
4020 FOR J-l TO 100:TS( J)-"":MEXT 
4030 PRINT"dn dn"; 
4040 TC-«:CS-«:CC-« 



4050 FOR L-l TO 100 

4060 IF L«(L)-» THEN 4170 

4070 SS-SS(L)*" »p "ITS-*" 

4080 REM SCAN FOR TOKENS 

4090 CC-CCUEN(SS):XS-"" 

4100 F0RJ»1T01EH(SS) :AS-HIDS(SS,J.l) 

4110 IF ASO"»p" THEN XS-X$»AS:NEXT 

4120 G0SUB 8000 

4130 IF P-« THEN XS-XS*"sp":TS-TS»XS: 

PRINT X$;:C0T0 4 1 SO 
4135 TC-TC»1:CS-CS»IEN(WS(P)) 
4140 T-P»I28:TS.TS»CHRS(T):PRINT"[" 

HIDS(STRS(T).2)"1"; 
4150 XS-"": NEXT J 
4160 TS(L)-TS:PRINT:HEXT I 
4170 PRINT"dn dn FINISHED - PRESS KEY TO 

CO ON 
4175 GETAS:IFAS-""THEH 4175 
4180 PRINT'clr TOKENIZING REPORT 
4190 PRINT"dn dr. SOURCE IS"CC" CHARS 10NG 
4200 PRINT"FOUN0"TC" TOKENS AND 
4210 PRINT"SAVE0 "CS" CHARACTERS 
4220 PRINT"RESUITS IN A "; 
4230 PC-INTUS/CC 100001/100 
4240 PRINT PC" »p * SAVINGS 
4250 PRINVdn do PRESS KEY, ETC" 
4260 CETAS:IFAS-""THEN 4260 
4270 RETURN 
5000 REH UNFOLD TEXT 
5010 PRINT'clr UNTOKENIZED TEXT: 
5020 PA I NT "dr. dn 
5030 FOR 1-1 TO 100 
5040 IF U(l)-» THEN 5100 
5050 TS-TS(l): F0RJ-1 TO LEN(TS) 
5060 AS-HID$(T$,J.I):A-ASC(AS) 
5070 If A<I28 THEN PRINT AS;:C0T0 50*0 
5080 PRINT WS(A-128)"ip"; 
5090 »CXT:PAINT:NCXT 

5100 PAINT'dn dn DONE - PRESS KEY. ETC 
5110 GETAS:IFAS-""THEN 5110 
5120 RETURN 

8000 REH GIVEN XS. UNARY SEARCH US 

8010 TP-100: LP-1 

8020 IF IP >TP THEN P-0: RETURN 

8030 P-INT((TP«l.P)/2) 

8040 IF XS-WS(P) THEN RETURN 

8050 IF XS>WS(P) THEN LP-P»I 

8060 IF X$<W$(P) THEN TP-P-I 

8070 GOTO 8020 

To tokenize the text, the first step 
is to remove any junk in T$ from a 
previous pass — in Line 4020. Then 
some counters are set up in Line 4040. 
TC is the Tokens Count, CS is Charac- 
ters Saved, and CC is Characters 
Counted. Lines 4050 and 4060 set up 
the L loop to look at each line of text. S$ 
is made the line of text with a space at 
the end — this permits words at the end 
of a line to be tokenized. In Line 41 00 to 
4110 we snatch characters and stuff 
them into XS until a space is found. 
Subroutine 8000 searches for a token 
word match. A non-match adds X$ to 
the compressed string T$, in Line 41 30, 
and a match builds a token in Line 
4140. Line 4135 is a later addition 
which keeps the counters updated. 
Note that the compressed text is 
printed to the screen, with token 
numbers in brackets. 

When all this is done, the string T$ 
is put into the T$( ) array — and then a 
brief report of the tokenizing effort is 
printed. 

Decompressing the text is simpler 
— since tokens aren't normally printed 
characters, they are easily detected 
and the tokens looked up for display. 
Note that Line 5080 has to add the "sp" 
that is implied in every token. 

Subroutine 8000 is an example of a 
Binary Search. Rather than looking 
through all 100 tokens in sequence, 
with an average search through 30 or 
more items (remember some are more 
common than others), the tokens are 
arranged in alphabetical order. The 
search works like this: 
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PET, cont'd 



1) Set the top pointer to the top of 
the list. 

2) Set the bottom pointer to the 
bottom. (Line 8010) 

3) If top pointer is larger than the 
bottom pointer, the search failed. (Line 
8020) Note: If P is left alone, it will 
indicate where the item would fit in for 
an insertion. 

4) Select a test value midway 
between the top and bottom pointers. 
(Line 8030) 

5) Quit if there is a match. (Line 
8050) 

6) If the List item is too small, 
move the bottompointer up to one past 
the test pointer (Line 8060). This halves 
the searching area. 

7) And vice versa. (Line 8060) 

8) Repeat by going to Step 3. (Line 
8070) 

If you can sort the items in a list, 
and the list is longer than about 20 
items, a Binary Search is a faster 
method — especially for long lists. 
Save this code away for use in other 
programs. (You wouldn't believe how 
long it takes to debug these things!) 

I tried a few text samples, and got 
these results: 

First two Paragraphs of this Column: 
25.15% savings 



First Paragraph, ARTWEEK, 13 Oct 79 

17.43% savings 
Creative Computing's Ad for Wumpus 

21.41% savings 

I don't have space for a sample 
RUN of this program — try it out on 
your own. A more elaborate version 
would look at the text and compile a 
tokens table based on the frequency of 
words in the text itself. 

A similar approach is to tokenize 
letter combinations (diagrams, tri- 
grams, etc.), or to take note that some 
letters follow others with differing 
frequencies, and storing the transi- 
tions instead of the letters. A very 
useful article for the probability tables 
used for this appeared in: IEEE 
Transactions on Pattern Analysis and 
Machine Intelligence, Vol. PAMI-1, 
Number 2, April '79. See "n-Gram 
Statistics for Natural Language Under- 
standing and Text Processing," Page 
164. 

As a last thought — if two-byte 
tokens were allowed, some 65,536 
words could be compressed into two- 
byte values. A typical word has 4 
characters plus the space — or about a 
60% compression is possible. One 
might also consider 12 bit tokens, for 
4096 words, and two tokens in 3 bytes. 
(And Don't mention Radix-41!) O 
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America's Most Versatile 

Line of Customized 
Audio Visual Packaging 

Audio Cassette 
Albums 




CA2LL-6 
Corrugated Mailers 





M-1 

For complete catalog writ* or phone 

RajpnG6 p "" 4 



M-2 



Packaging Division 



108-18 Queens Boulevard 

Forest Hills. N.Y. 11375 (212) 544 9800 



CIRCLE 1S3 ON READER SERVICE CARD 



Jt x. n x, >ta-c j< jm-as. 



IXUKXKSt 



: m-cj< xx f<jj 




APPLE KIM AIM65 



INEXPENSIVE CONTROL SOLUTION FOR 

HOME SECURITY • ENERGY CONSERVATION 

GREENHOUSES ■ ENVIRONMENTAL CONTROL 

INDUSTRIAL CONTROL • LABORATORIES 



CmC's^DAC system now includes an interlace to the BSR X- 10 remote 
control modules These low-cost modules allow control over lamps, 
motors and appliances With the CmC X-10 interlace your computer can 
control 256 separate devices Lamps can be turned on or off. dimmed or 
brightened Alarms, kitchen appliances, hi-fis. TVs. motors, pumps, 
heaters and more can be put under your computer's control 

Direct plug-in and software for most computers 

Circle the reader service number, call or write for our latest catalog 



° CONNECTICUT microCOMPUTER , Inc. 

"* uTB B-^> '50 POCONO ROAD 

£j BROOKFIELD, CONNECTICUT 09904 

TEL: (203) 775-9659 TWX 710-4560052 
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PET Word Processor 




This program permits composing and printing letters, 
flyers, advertisements, manuscripts, etc., using the 
COMMODORE PET and a printer. 

Printing directives include line length, line spacing, 
left margin, centering and skip. Edit commands allow 
you to insert lines, delete lines, move lines and 
paragraphs, change strings, save files onto and load 
files from cassette (can be modified for disk), move up, 
move down, print and type. 

Added features for the 16/32K version include string 
search for editing, keyboard entry during printing for 
letter salutations, justification, multiple printing and 
more. 

A thirty page instruction manual is included. 

The CmC Word Processor Program for the 8K PET is 
$29 50 The 16/32K version is $39 50 

Order direct or contact your local computer store. 

VIS* AND M/C ACCEPTED — SEND ACCOUNT NUMBER EXPIRATION DATE ANO SKIN ORDER 
ADO II PEN ORDER fOR SHIPPING A HANOLING — FOREION ORDERS AOO 10% POR AM POSTAGE 

CONNECTICUT microCOMPUTER , Inc. 

150 POCONO ROAD 
BROOKFIELD. CONNECTICUT 06*04 
TEL: (203) 775-9659 TWX 710-456-0052 
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Wc welcome entries from readers for the 
"Compleat Computer Catalogue" on any 
item related, even distantly, to computers. 
Please include the name of the item, a brief 
evaluative description, price, and complete 
source data. If it is an item you obtained 
over one year ago, please check with the 
source to make sure it is still available at the 
quoted price. 

Send contributions to "The Compleat 
Computer Catalogue," Creative Com- 
puting. P-O. Box 789-M, Morristown, NJ 
07960. 



Terminals & I/O 




PET PRINTER 

Digiclocks has announced 
Microprinter 100 for the PET. It prints 
the entire screen character set in both 
regular and video reverse. 

Digiclocks, 3016 Oceanview, 
Orange, CA 92665. 
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MICROTEK PRINTER 



Microtek, Inc. has entered the 
under-$ 1,000 printer market with its 
MT-80 series, 125 character per se- 
cond, 80- and 120-column bidirec- 
tional printer. The MT-80 series 
printer supports the full upper case 
and lower case 96-character ASCII set 
in three software selectable fonts on 
original plus three copies. The 10 CPI 
font uses 9x7 dot matrix. 

The MT-80P Centronics-compatible 
parallel interface version is priced at 
$750. The MT-80S serial (RS-232) ver- 
sion is priced at $835. 

Microtek, Inc., 7844 Convoy Ct., 
San Diego, CA 92111. (714) 278-0633. 
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LOW COST IMPACT PRINTER 

Okidata announces a serial impact 
printer which has been developed to 
address the low cost printer market. 

The Microline 80 operates at 80 CPS 
continuously with no duty cycle 
restrictions in either 5, 10 or 16.5 CPI 
formats utilizing a 9 x 7 character set. 
It will accommodate either standard 
8V2 inch roll paper or 3 part fan fold 
from 4.5 to 9.5 inches wide and will 
also produce block formatted 
graphics. Under $1000. 

Okidata Corporation, 111 Gaither 
Dr., Mt. Laurel, NJ 08054. (609) 235- 
2600 ext. 25. 
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ADDRESSABLE PET PRINTER 
ADAPTER 

CmC's ADA 1400 drives a printer 
with an RS-232 interface from the 
Commodore PET IEEE-488 bus. The 
ADA is addressable, works with the 
Commodore disk and prints upper 
and lower case ASCII. 

A PET IEEE type port is provided 
for daisy-chaining other devices. 

A cassette tape is included with 
programs for plot routines, data 
formatting and screen dumps. 
$179.00. 

Connecticut microcomputer, Inc., 
150 Pocono Road, Brookfield, Con- 
necticut 06804. (203) 775-9659. 
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VOICE I/O TERMINAL 
FOR SORCERER 

Voicetek Inc. announces Cognivox, 
which plugs into Exidy's Sorcerer 
computer and offers a 16-word 
recognition vocabulary plus voice 
response with up to 16 words or 
phrases. Recognition accuracies of up 
to 98% arepossible with cooperative 
speakers. The unit is self-contained in 
an attractive color coordinated 
cabinet and includes a microphone 
and amplifier/speaker making it a 
complete voice I/O terminal. 

A software library, provided with 
Cognivox, includes Voicetrap, a voice 
operated video game and Vothello, a 
voice input version of the game 
Othello. $149. 

Voicetek, P.O. Box 388, Goleta, CA 
93017. 
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Vendor 
Literature 

MICRO-COMPUTER ADD-ONS 

Microcomputer Technology Inc.. 
and Apparat Inc., distributors and 
developers of add-on hardware and 
systems software for the TRS-80 
and other Micro-Computers have 
published a new catalog. The 
catalog is a reference guide to their 
line of mini-floppys, Tine printers, 
software, and other accessories for 
use with TRS-80 and other micro- 
computers. 

Microcomputer Technology Inc., 
2080 South Grand, Santa Ana, CA 
92705. (714) 979-9923, or Apparat Inc., 
7310 East Princeton, Denver, CO 
80222. (303) 758-7275. 
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Disk Systems 




DISK SYSTEM 

FOR APPLE PASCAL 

The Corvus disk system for Apple 
Pascal, designated the Model 1 1 AP ; is 
100% compatible in all respects with 
Apple Pascal. 

All of the following will run without 
modification: Apple Pascal disk 
operating system, the earlier Apple 
3.2 disk operating system, any 
applications designed to run on the 
280-block Apple floppy disks, and 
many new applications too large for 
Apple floppies. 

To provide complete control over 
the data base with a high degree of 
operating flexibility and speed, Cor- 
vus has incorporated a new utility 
called dynamic volume management. 
This allows the ten-million byte data 
base to be used as a single large block 
or to be broken into any number of 
smaller blocks with the same 
management flexibility. $5350. 

Corvus Systems, 900 S. Winchester, 
Suite #4, San Jose, CA 95128. (408) 
246-0461 
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"All right, let's keep It moving - keep 
I your punch cards handy for quick 
I processing. " . _ 

©Crrtnve Computing 



TRS80 DISK USERS 
Avoid "Forgotten" Password! 
Know how much space is available. 
Keep track of what's on your disk- 
ettes with our special forms. 
Enough forms to index 25 diskettes 
ONLY $3.00 + 75c P. & H. 
Write regarding custom forms 
STEVENS COMPUTER 

PRODUCTS 

Box 942, Glendaie, CA 91209 

Calif. Residents add 6% Tax 



TRS-80 SOFTWARE "GOODIES' 1 
—UNIQUE MlX- 
Stamp brings full details 

Wilson, Box 697W 
Empire, California 9531 9 
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SOFTWARE CATALOG 

For a free 20-page catalog of 
Creative Computing Software for 
all computers circle 207 on the 
reader service card . 



YOU THINK YOU'VE SEEN WORD 
PROCESSING SOFTWARE? 



The 



MAGTC WANDv 



Word Processing 



System offers you the best features of any system 
in the micro market 



FEATURES INCLUDE: 
Full-screen text editor 

Simple, control key operation 
Edit programs as well as text 

Assemble, compile or run programs 

without modification 
Files larger than memory 

Files up to 256K 
Library files 

Merge part or all of one file with 

another 
Spool printing 

Print a file while editing another 
Easy page formatting 

Simple commands set margins, page 

length, etc. 
Override commands at run-time 

Give any conmand from the key- 
board as weii as in file 
Variable pitch control 

Change pitch in mid-line, even 

mid-word 
Up to 1 28 user-defined variables 

String, numeric or dollar format 
Form letter generation from external 
data files 

Compatible with both sequential and 

fixed-record files 
Conditional commands 

Any command may be conditional 
Print to disk and /or printer 

Save all or part of output on disk 
Switch from specialty printer to CP/M 
list device 

Print the same file on either specialty 

or standard printer 



EASE OF OPERATION 

With all its power, the MAGIC WAND is 
remarkably easy to use. This is no acci- 
dent. The command structure is designed 
to be flexible and logical so that you can 
perform basic functions with a minimum of 
commands. 

We have included in the manual a step- 
by-step instructional program, for the per- 
son who has never used a word-proces- 
sor before. The trainee uses sample files 
from the system disk and compares his 
work to simulated screens and printouts. 

In addition to the lessons, the manual 
has a complete documentation of the 
command structure, special notes for pro- 
grammers, an introduction to CP/M for 
non-programmers and a glossary. The 
manual is typeset, rather than typewritten, 
for greater legibility 

We have written the manual in non- 
technical English, because we want you 
to read it We don't overload you with a 
bunch of jargon that could confuse even a 
PhD in Computer Sciences 

We send out newsletters so that users 
of the MAGIC WAND can learn special 
applications of the print commands. For 
example, we might show you how to cre- 
ate a mailing list or set up an index for 
a file 

In short, we've done everything we can 
to make things easy for you. Because the 
best software m the world is just a bunch 
of code if you can't use it. 



For more information , call or write: 

scooXV business ogftocafaxis, vac. 

3220 Louisiana • Suite 205 • Houston, Texas 77006 • 713-528-5158 
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IPEX 8085 MICROCOMPUTER 

IPEX International Inc. announces 
the IPEX 8085, a desk-top microcom- 
puter which features built-in dual 
floppy disk storage. 

The standard system includes ap- 
proximately 600K bytes of on-line 
disk storage capacity which can be 
expanded to over 1.2 megabytes. 
Similarly, the standard 32K byte 
RAM can be expanded to 56K bytes 
directly without using memory 
management schemes. 

The IPEX 8085 is supplied complete 
with a disk extended Basic package, 
disk operating system, and utilities 
software. 



Other software which is supported 
on the IPEX 8085 includes CP/M, 
CBasic, Microsoft Basic, Fortran-80, 
a data base management package 
and applications programs which are 
compatible with these languages and 
operating systems. $3695. 

IPEX International, 16140 Valerio 
St., Van Nuys, CA 91406. (213) 781- 
0020. 
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PRACTICE MANAGEMENT 
SYSTEM 

Promedics Data Corporation, a 
medical and dental systems and 
consulting firm, has announced a 
practice management system for 
single producers, groups and clinics 
who desire to organize and manage 
their practices more successfully by 
greatly increasing the speed, ac- 
curacy and ease with which patient 
information can be processed. 

The system consists of a practice 
management handbook which out- 
lines the necessary procedures, per- 
sonnel requirements, and forms to 
use; a central computer for processing 
the information; and the training and 
implementation required to convert 
the practice to the new system. 

Promedics Data Corporation, 1032 
Elwell Ct., Suite 240, Palo Alto, CA. 
94303. (415) 961-2401 
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S-100 MAINFRAME 

California Computer Systems has 
announced its new S-100 mainframe, 
a 12-slot, actively-terminated device 
designed for system builders. 

The S-100 Mainframe, measuring 
11 -inches high, 7 inches wide and 18 
inches deep, comes complete with a 
fan and a circuit breaker. It supports 
output voltages of +8VDC at 20 amps 
and +16VDC at 4 amps. Input may be 
105, 1 15, or 125 VAC. The device is 
available in five colors: office cream, 
black, blue, brown and silver. $399.95 

California Computer Systems, 309 
Laurelwood Dr., Santa Clara, CA 
95050. 
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Your Full Service Computer Store 

We Have 
It All! 

■HARDWARE 

•SOFTWARE 

'PERIPHERALS 

'ACCESSORIES 

'SEMINARS 

'BOOKS, MANUALS, MAGAZINES 'DISK DRIVES 

'PRINTERS 'MONITORS 'FURNITURE 

All the famous brand names, including: 



APPLE 


Alpha Micro 


Soroc 


ATARI 


Alpha Pro 


Hazeltine 


EXIDY/Sorcerer 


Cromemco 


Sektor 


Kim/Commodore 


Xerox 


PET 


Texas Instruments 


Lear Siegler 


Shugart 



VISA • BankAmericard • Master Charge 

ComputerWorld 



WESTMINSTER- 6791 Westminster 



IRVINE 
VAN NUYS 

LAWNDALE 
BURBANK 



- 270 South Bristol 

- 5848 Sepulveda 
- 15818 Hawthorne 

- 3808 West Verdugo 



(714) 891-2584 
(714) 957-5874 
(213) 786-7411 
(213) 370-4842 
(213) 848-5521 
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TRS-80* PEOPLE'S PASCAL 
PROGRAM DEVELOPMENT SYSTEM 



"Tiny" Pascal, rum on any I6K level II system, includes the 
programming structuring capabilities of full Pascal, but not data 
structuring. 

Compiled People's Pascal programs run about five-times faster than 
level II Basic — graphics run eight-times faster. Tape 3 compiler 
written in Basic; tape 6 in machine language (FASTER). 

People's Pascal Tape 3 $15.00 

People's Pascal Tape 6 $23.00 

Tape 1 Level II, 34 business, educational programs $7.50 

(Level I version, 24 programs — separate tape) 
Tape 2 Level II, 77 programs from Osborne book, "Some 

Common Basic Programs." $7.50 

Tape 4 Level I, business and educotional $7.50 

Tope 5 Level II, business and educational $7.50 

Add 50c each tape for postage and handling. 
California residents add 6% tax. Dealer inquiries invited. 

COMPUTER INFORMATION EXCHANGE 

Box 158 

San Luis Rey, CA 92063 
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CREATIVE COMPUTING 






Books and 
Booklets 



BOARD RATES 
COMPUTER SCHOOLS 

In a study of computer vocational 
training schools in New York State, 
the state Consumer Protection 
Board found that such schools offer 
a variety of training programs of 
varying quality and often promise 
much more than they deliver to eager 
young people who wish to compete in 
an overcrowded, slow-growing job 
market. 

The study, entitled Check It Out: A 
Comparative Guide To New York 
State's Computer Schools, cited for 
quality of instruction 25 of the more 
than 230 programs at 118 schools 
statewide. 

The 76-page guide defines and 
examines the four major computer job 
titles, data entry operator, computer 
operator, computer programmer and 
service technician, and compares the 
training offered by proprietary 
schools, Educational Opportunity 
Centers (EOCs), Board of Cooperative 
Education Services (BOCES), public 
school programs, and community 
colleges. 



Single copies are available free 
from Computers, State Consumer 
Protection Board, Two World Trade 
Center, New York, NY 10047. 




BUYER'S GUIDE 

A Buyer's Guide of microcomputer 
software, accessories and supplies 
listing releases of software and 
accessories for the Apple II and TRS- 



80 as well as a wide range of computer 
supplies is now available. 

The Buyer's Guide sells for $3.00 
but a certificate worth $3.00 off the 
first purchase is supplied with each 
copy. 

Wallace Computers, Accessories 
and Supplies.Inc, 1024 West Willcox, 
Peoria, IL 61604 (309)685-7876. 
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GUIDES TO WORD PROCESSING 

Practical Guides to Word Process- 
ing, the first in a series of books 
dedicated to the subjects of word 
processing concepts and _ hardware 
implementation has been introduced 
by Information Management Cor- 
poration. 

The individual, step-by-step guides 
to implementing word processing 
equipment and hardware are written 
for anyone involved in investigating, 
implementing and/or managing 
word processing systems and con- 
cepts. 

Information Management Corpora- 
tion, 4319 Covington Hwy., Suite 320, 
Decatur, GA. 30035. (404) 289-5620 
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compi 
products, 



inc. 



11542-1 KNOTT ST. 

GARDEN GROVE, 

C A 92641 

(800)854-6411 

(714)891-2663 



MICROBYTE 
16K RAM BOARD 



• FULLY S-100 
COMPATIBLE 

•USESLO-PWR 
4KX1,MM5257s 

• 2 MHZ OR 4 MHZ 
•4KBANK 

ADDRESSABLE 
•EXTENDED MEMORY 
MANAGEMENT 

• NO DMA RESTRICTIONS 
•ASSEMBLED & TESTED 
2MHZ$250-4MHZ$265 



REGULATORS 



320T-5 90 

320T-12 90 

340T-5 80 

340T-12 70 

78H05 4.75 

78L12 35 



MICROBYTE 
32K RAM BOARD 



•FULLY S-100 

COMPATIBLE 
•USES LO-PWR 

4KX1.MM5257S 

• 2MHZ0R4MHZ 

• BANK ADDRESSABLE 
•EXTENDED MEMORY 

MANAGEMENT 
•8-BIT OUTPUT PORT 

• NO DMA RESTRICTIONS 
•ASSEMBLED & TESTED 
2MHZ$525-4MHZ$540 



MISC. COMPONENTS 



LM339 . 
LM348.. 
LM377.. 
LM380.. 
LM3900 . 
DM8216. 
8080A . . 
8251 . . . 



1-9 

. .70 
.1.00 
.1.10 
. .80 
. .55 
.2.10 
4.50 
.5.00 



10-99 

.65 

.92 

1.00 

.75 

.50 

2.00 

4.25 

4.80 



100 up 

.59 

.85 

.95 

.70 

.44 

1.90 

4.00 

4.50 



IMSAI CONNECTORS 
100PIN-SOLDERTAIL 

$3.00 each 
10 for $2.75 each 



LO-PRO SOCKETS 



14 PIN 
16 PIN 
18 PIN 
20 PIN 
24 PIN 
28 PIN 
40 PIN 



1 24 

.15 
.16 
.19 
.27 
.35 
.40 
.50 



,". n ioo ue 
.14 .13 



.15 
.17 
.25 
.31 
.33 
.46 



.14 
.15 
.23 
.27 
.29 
.41 



4116's 

(250NS) 

ADD ON MEMORY 

FOR APPLE. TRS 80. 

HEATH, ETC 

8 for $64.00 
16 for $120.00 



SA800 DRIVE 

INSTALLED IN DUAL 

CABINET W/PWR SUPPLY 

ASSEMBLED & TESTED 

(1) DRIVE INSTALLED 

$695.00 

(2) DRIVES INSTALLED 

$1125.00 



ASK 
FOR 
OUR 
NEW 
CATALOG 



2716's 

5-VOLTONLY 
450 NS. 

$32.00 ea 

or 

8 $240 



ORDERING INFO 



NAME. ADDRESS. PHONE 

SHIP BY. UPS OR MAIL 

SHIPPING CHRG: ADD $2. 50 

UP TO (5) LBS. CREDIT CARDS 

WILL BE CHARGED 

APPROPRIATELY 



2708's 

450NS 

$8.50 ea 

or 

8/$60 



CERAMIC 
CAPS 

1 @ 12 VOLTS 

10* ea 

or 

100/S9.00 



2114's 



LO-PWR 
300 NS. 

1-16 PCS. 

$5.25 ea 

17UP 
$5.00 ea 



TERMS 



WE ACCEPT CASH. 

CHECK. MONEY ORDERS, 

VISA & MASTER CHRG 

(U S. FUNDS ONLY) 

TAX: 6% CALIF. RES. 
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5-10 times faster... 
and more! 

Meet f'asc al Z '' the last, flexible compiler with" 
higher speed, greater effi< iency and improved debugging: 

■ True Z-80 native code Pascal compiler- 5-10X faster 
than competing P-code implementations — no interpn 
required. 

m The only multi-tasking Pascal — procluc es ROMable 
reentrant ( ode. 

■ Optimized' for fastest execution— recognizes and 
exploits spec ial < ases 

■ Easily transportable — all hooks to your system made 
through support library 

■ Includes standard floating point pa( kage Single 
copy on CPM-compatible disk includes compiler 
companion macro-assembler & source of the library, $395 

( )[ M Ik enses available Write or c all for more information 
n a rvxi a 



I II I IlL^li^V^HlLCI I UrSi 



Ithaca Intersysti-ms ln< . 1650 Hanshaw Road P< ) Box ''1 
Ithaca. NY 14850 607 257 0190 IWX 510255 4(46 



1979 Ith.K a Intersystefm 
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The 
(Self- Indexing 



W& 



q 



^/OTOOTOR 
(^OOCo)ftRG 

BOX 14694 
SAN FRANCISCO 94114 



Software 



BUSINESS 

National Software Marketing, Inc., 
announces the release of an apart- 
ment and rental unit manage- 
ment system for the TRS-80 which 
can be used with either tape or disk 
systems, with or without a printer. 
$99. National Software Marketing, 
Inc., Box 6195, Hollywood, FL 33021. 
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Micro- Ap offers G Lector , a general 
ledger system to run with their 
Selector III-C2 Information Manage- 
ment System. The system uses trans- 
action codes for data entry, thereby 
eliminating the need to memorize 
account numbers. It requires a 52K 
CP/M operating system, CBasic 
Version 2 and Selector III-C2. $250. 
Micro-Ap, 9807 Davona Dr., San 
Ramon, CA 94583. 
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Payroll Processing, Inventory 
Control/Order Entry and Ac- 
counts Receivable/Invoice Entry 

are three software packages designed 
to extend the range of applications for 
the Chieftain small business com- 
puter system. Smoke Signal Broad- 
casting, 31336 Via Colinas, Westlake 
Village, CA 91361. (213) 889-9340. 
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A fully CP/M compatible 
operating system for the TRS-80 
Model II computer has been an- 
nounced by MPU. The system re- 
quires no changes in the operating 
codes to work with CBasic and other 
CP/M programs. $249.95. MPU. P.O. 
Box 808, San Carlos, CA 94070. (800) 
824-7888; in California, (800) 852- 
7777. 
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A Business and Financial 
Analysis program includes portfolio, 
home ownership, yield to maturity, 
ROI, economic order quantity and 28 
other common business problems, all 
of which are handled in a single 
input/output format. The program is 
available for the TRS-80, Level II; 
CP/M or Kansas City. $36. Microcom- 
puter Applications, Inc., 4614 Trail 
Crest Cir., Austin, TX 78735. (512) 
892-0156. 
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Arkansas Systems announces in- 
tegrated Order Entry, Accounts 
Receivable and Inventory systems 
for wholesale and manufacturing 
companies. The systems are written 
in Fortran and provided on CP/M 
compatible disks. Arkansas Systems, 
Inc., 8901 Kanis Rd., Suite 206, Little 
Rock, AR 72205. (501) 227-8471. 
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Earned Income Payroll 
Software from California Business 
Computers can handle full measure 
payroll activities for firms up to 80 
employees. The package includes the 
new Earned Income Credit 
Provisions required in July 1980, plus 
federal and state tax tables. The 
program will run on micro computers 
that use the CP/M disk operating 
system, CBasic or CBasic2. $595. 
California Business Computers Cor- 
poration, 825 W. Hamilton Ave., 
Campbell, CA 95008. 
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Acct-III consists of three programs 
that carry out the on-line accounts 
receivable functions of a small 
business or medical clinic. It requires 
a dual disk, 32K min. DOS TRS-80 
system. $69. Micro Architect, 96 
Dothan St., Arlington, MA 02174. 
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A-T Enterprises has announced 
software designed to provide 
management and accounting con- 
trol for income properties. The 

software is written in CBasic and 
runs under the CP/M operating 
system. $750. A-T Enterprises, 221 N. 
Lois St., La Habra, CA. (213) 947- 
2762. 
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Data Train has announced a line of 
accounting program products called 
the DTI Bookkeeper II, designed 
around Microsoft Stand Alone Basic. 
Bookkeeper II provides ledger report 
writer modules for general ledger, 
accounts receivable, accounts 
payable, and fixed asset accounting. 
$159 to $900 per module. Also 
available is Payroll for a dual mini- 
disk, 32K, TRS-80 business system. 
$235. Data Train, Inc., 840 N.W. 6th 
St., Suite 3, Grants Pass, OR 97526. 
(503) 476-1467. 
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WORD PROCESSING 

Master Text Processer for the 
Apple II and Apple II Plus is a Basic 
system which includes its own mail- 
ing list element and a programmable 
form letter writer. It will operate on 
32K with either one or two disk drives. 
$139.95. Charles Mann & Associates, 
Micro Software Division, 7594 San 
Remo Tr., Yucca Valley, CA 92284. 
(714) 365-9718. 
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Pencil/Pal enables users of the 
TRS-80 and Electric Pencil to merge 
the body of a letter with a file of names 
and addresses. $35. Microcomputer 
Specialists, P.O. Box 11295, Elkins 
Park, PA 19117. (215) 635-2473. 
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Pro- Type, on CP/M compatible 8" 
single density disk, features text 
editing and formatted printing in a 
single, compact program. The 
program is compatible with any kind 
of input terminal and any printer 
interfaced to the disk operating 
system. $75. Interactive Microware, 
Inc., P.O. Box 771, State College, PA 
16801.(814)238-8294. 
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Super- Text, a word processing 
system for the Apple II and Apple II 
Plus, features a multiple paging 
system which allows the user to view 
two text screens simultaneously, 
keeping notes or instructions on one 
screen while editing the other. It also 
has built-in floating point math and 
automatic tabbing to facilitate the 
preparation of manual reports. 
$99.95. Muse Co., 7112 Darlington 
Dr., Baltimore, MD 21234. (301) 661- 
8531. 
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The Magic Wand, a word process- 
ing system for 8080, Z80 and 8085 
based computers, uses the CP/M 
operating system and consists of a 
text editor and print processor. Small 
Business Applications, Inc., 3220 
Louisiana, Suite 205, Houston, TX 
77006. (713) 528-5158. 
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VERBATIM® ATHANA® GEORGIA MAGNETICS® 

Floppy Diskettes for 

ANY COMPUTER SYSTEM 



8 " Floppies only $3 2 e °a 

HUNDRED LOTS 

10 for $3.65 ea • 50 for $3.40 ea 

Wo rotonro tho right to ship •! thor of tha nam* brands thai wo carry. 



5 1 /4 Mini-floppies only $2! 



lOO 

■ea, 

HUNDRED LOTS 

10 for $3.10 ea. • 50 for $2.85 ea 



SPECIFY SIZE, TYPE, 4 COMPUTER 

S % - Soli Sector. 10 Sactot, IS Sartor— S" IBM Compatible. Hird Sactor 



CALL TOLL-FREE 24 HRS. TO ORDER 

800-824-7888 
OPERATOR 813 *<*~^ 






u„.v.r.lt... °' 

CALIFORNIA 800-852-7777 gudiy ••rvie*d C.O.D. 



DC SOFTWARE & COMPUTER PRODUCTS 
POST OFFICE BOX 503 
SAN BRUNO, CALIF. 94066 

FOR INFORMATION 415-348-2387 



FEBRUARY 1980 
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New From ECI 



Sclectric I/O Interface Controller— For IBM 

Selectric I/O typewriters. Uses standard parallel port 
driver. Automatic case control. (Some typewriter 
modification may be required.) Less connectors. With 
full instructions. $289.00 

Cassette to Parallel Converter— Use with 
Selectric VO interface to run a typewriter or other 
parallel device from your cassette output. Works with 
T-BUG or similar monitor program. Software listing 
supplied. $69.95 

AGC Box — Provides constant cassette output 
regardless of tape level. End loading error problems. 
Includes tape deck control switch and data 
indicator. $29.95 

Dual unit for two recorders. $39.95 

I.C. Tester— Tests most common TTL and CMOS 
I.C.'s. Convenient benrh-top module. $199.95 



SC-5 Typewriter 
Controller 



Will accept: Master Cha rge, Visa or COD 

ID) 

ELECTRO CONTROLS INC. 

6951 Southgate. San Diego. CA 921 19 
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GB Associates has released a 
cassette-based word processor for 
the TRS-80 Level II which is com- 
patible with the Radio Shack Line 
Printer II and Centronics 730. $19.95. 
GB Associates, P.O. Box 3322, 
Granada Hills, CA 91344. 
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RECREATION AND GAMES 

NSP Computer Services announces 
an interactive Bowling game for use 
on TRS-80 and Apple IlComputers. 
$9.95. Also included in the announce- 
ment is a Golf Handicap System to 
compute and record golf scores and 
handicaps on the TRS-80 or Apple II. 
$85. NPS, Inc., P.O. Box 3092, Crof- 
ton, MD 21114. (301) 721-3849. 
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Checker King from Personal 
Software plays at eight levels of skill 
selected by the user and changeable 
during the game. It is available on 
cassette for Apple II, Apple II Plus, 
TRS-80 Levefl and II and Com- 
modore's PET and CBM computers. 
Gammon Gambler plays at any of 
ten levels of difficulty. It is available 
on cassette for PET, CBM and Apple 
II. $19.95 each. Personal Software, 
Inc.. 592 Weddell Dr., Sunnyvale, CA 
94086. (408) 738-3096. 
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Dungeon Explorer for the TRS-80 
Level II is a single player game of 
adventure and combat based on 
Dungeons and Dragons. $8.50. 
Software Exchange, 2681 Peterboro, 
W. Bloomfield, MI48033. 
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Image Computer Products has 
announced a line of personal com- 
puter software for the Atari 400 and 
800 and the Texas Instruments 99/4. 
The programs available include: All 
Star Baseball, Wall Street Challenge, 
Mind Master, Strategy Pack I and II, 
Skill Builder, Tournament Brick Bat, 
and Wildcatting. Image Computer 
Products, Inc., 615 Academy Dr., 
Northbrook, IL 60062. 
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Interactive Microwave has in- 
troduced four new recreational 
programs for the TRS-80: In 
Mirrorays the user flashes rays of 
light into a black box in order to locate 
hidden mirrors. Compact Graphics 
Interpreter creates elaborate 
graphic designs with a simple set of 
numbers. Lunar Lander Simulator 
provides real-time simulation and 
control of a lunar module. Battlegrid 
is a real-time game of speed and 
strategy in which two players attack 
one another's forces. $7.95 each. 
Interactive Microware, Inc., P.O. Box 
771, State College, PA 16801. (814) 
238-8294. 

CIRCLE 241 ON READER SERVICE CARD 



LANGUAGES 

The Software Farm announces 
tiny Forth 2. 1 , a high level structured 
language designed for TRS-80 com- 
puters. $29.95. The Software Farm, 
P.O., Box 2304, Reston, VA 22090. 
(703) 437-9218. 

Basex Compiler is a language 
that runs up to 20 times faster than 
Basic. Features include arrays, 
strings, 16 bit math, block move and 
search, subroutines with multiple 
arguments, fast graphics and tape 
I/O. $25. Interactive Microware, P.O. 
Box 771, State College, PA 16801. 
(814) 238-8294. 
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STOCK MARKET ANALYSIS PROGRAM 
DJI WEEKLY AVERAGE 1897-1980 



ANA1' {ANALYSIS t) is a sel ot BASIC Programs which enables the user lo 
perform analyses on the Dow Jones Industrial weekly average data From 6 
months to 5 years ot user selected DJI data can be plotted on the entire screen 
in one ot 5 colors using Apples High Resolution capabilities The DJI data can 
be transformed into different colored graphic representations called transforms 
They are user specified moving averages, a least squares linear fit (best straight 
line): tillers tor time, magnitude, or percentage changes: and user created rela- 
tionships between the DJI data a transform, or a constant using v-.x / operators 
Colored lines can be drawn between graphic points Graphic data values or 
their dates of occurrence can be displayed in text on the screen Any graph or 
text can be outputted to a users printer The Grid Scale is automatically set to 
the range ot the graphs or can be user changed As many colored graphs as 
wanted can be plotted on the screen and cleared at any time The user can code 
routines to operate on the OJI/transtorm data or create his own disk file data 
base ANA1 commands can be used with his routines or data base An Update 
program allows the user to easily update the DJI file with current DJI weekly 
data 

The ANA! two letter user commands are CA > Calculate, no graph CG - Clear 
Graphs, leave Grids CK ■ Checking out program, known data CO ■ Color of next 
graph (red green, violet, white, blue! CS ■ Clear Screen DL ■ Draw Line between 
points Ft ■ Filter data tor time, magnitude, or percent change FU ■ Data, trans- 
form, or constant Function with ♦.- ,x./ operator GD - Graphic mode display 
all Graph Data on screen GR ■ Graph data to screen GS ■ Set Grid Scale HE - Help 
summary of any commands usage LD ■ Load Data from disk file from inputted 
date to memory LG ■ Leave Graphs, automatic Grid reseating LO ■ Look, select 
a range ot the LO data and GR. All commands can now be used on this range 
LS - Least squares linear fit ot the data MA ■ Moving Average ot the data NS ■ 
No Scale, next graph on screen does not use Grid Scale NT ■ No Trace PR ■ User 
implimented Printer routine TO - Text mode, display Text Data on screen Tl ■ 
Time number to date or vice versa TR ■ Trace TS ■ Text Stop lor number of lines 
outputted to screen when in ID U1/U2 ■ User 1/2 implimented routines VO ■ 
Values ot Data outputted in text VG ■ Values of Grid: low/high/delta VT ■ Values 
of Transform outputted in text 



APPLE' II. 48 K. APPLESOFT 
ROM CARD. DISK II DOS 3.2 
ANAI DISK A MANUAL . . . S49.95 
(CA residents add 6% sales tax) 



GALAXY 
DEPT. CCI 
P.O. BOX 22072 
SAN OIEGO. CA 92122 



' Software Review in Call-A P P L E (2/801 An example of an excellent piece ot 
software exploiting most ot Apple It's major features ." Overall Rating ■ 92 t 
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INCOME TAX 



For The TRS-80 1 



TAX PROGRAM BOOK 

Many Tax Programs — Helpful 
Programming Hints for New- 
comers — and How to Handle 
Your Own TRS-80, Taxwise. 

The book that lets you program your own Income Taxes. In- 
cludes Form 1040A. Form 1040. Schedules A. B. C. D. E. F, G. 
Ft and SE. Form 2210. Investment Credit. Minimum Tax. 
Maximum Tax. Depreciation, 10- Year Averaging and others 

Mow to take advantage of tax credits and a chapter that will help 
all newcomers Written for easy learning $-M 95 ppn 



See Your Dealer, or write to — 
Gooth Software 
931 S. Bemiston 
St. Louis, Mo. 63105 
DEALER INQUIRIES INVITED 



•trs ao > 

IM n«g 

Tandy Corp . 

Fl Worm TX 78102 
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CREATIVE COMPUTING 



SYSTEMS 




Exidv Data Systems has an- 
nounced Development Pac, a plug- 
in ROM Pac cartridge for the home 
computer user who wants to develop 
machine-language programs and 
systems. The manufacturer says that 
the software can turn a Sorcerer into a 
"relatively sophisticated, cassette- 
based Z-80 development system." $99. 
Exidy Data Systems, Sunnyvale, CA. 
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Cosapple is an 1802 simulator and 
debug package designed to run on the 
Apple II. It enables the Apple to run 

Firograms coded in 1802 machine 
anguage and can be used as a 
development aid. $20. Dann Mc- 
Creary, Box 164;J5-C, San Diego, CA 
92116. (714)281-5758. 
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Micropolis Corporation has an- 
nounced the development of a multi- 
user operating system for the 
Micropolis MicroDisk. The manufac- 
turer says that "with the MicroDisk 
operating system, users can plug in a 
primary storage device with perfor- 
mance characteristics equal to or 
surpassing those available on many 
minicomputer systems costing two to 
four times more." $5,000. Micropolis 
Corporation, 7959 Deering Ave., 
Canoga Park, CA 91304. (213) 703- 
1121. 
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Vulcan is a data base management 
system with 38 English language-like 
commands to manipulate files, 
records, fields and scratch-pad 
variables. It is written in 8080 assem- 
bly language and operates on 8080 or 
Z80 systems under CP/M or PTDOS. 
$490. Software Consultation, Design 
and Production, 6542 Greeley St., Tu- 
junga, CA 91042. (213) 352-7701. 
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ASCII encoded keyboards 
as low as $65* 




The RCA VP-601 keyboard has a 58 key typewriter format for 
alphanumeric entry. The VP-61 1 ($1 5 additional*) offers the same type- 
writer format plus an additional 1 6 key calculator type keypad. 

Both keyboards feature modern flexible membrane key switches with 
contact life rated at greater than 5 million operations, plus two key 
rollover circuitry. 

A finger positioning overlay combined with light positive activation key 
pressure gives good operator "feel", and an on-board tone generator 
gives aural key press feedback. 

The unitized keyboard surface is spillproof and dustproof. This plus 
the high noise immunity of CMOS circuitry makes the VP-601 and VP-61 1 
particularly suited for use in hostile environments 

The keyboards operate from a single 5-volt, DC power supply, and 
the buffered output is TTL compatible. For more information contact 
RCA Customer Service, New Holland Avenue, 
Lancaster, PA 1 7604 

Or call our toll-free number: 800-233-0094. 

"OEM price 
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IMAGINE. ...193 GAMES 
FOR YOUR CP/M SYSTEM 

OUR BEST ACTION, STRATEGY AND FANTASY GAMES 

Creative Computing Software should bo stocked by your local computer store. 
If your favorite retailer does not have the software you need have him call our retail 
marketing department. Or you can order directly from Creative Computing, at 
800/631-8112, with your bankcard number. In NJ 201/540-0445. Our mall order 
address Is P.O. Box 789-M. Morrlstown NJ 07960. 

ADVENTURE Original Aventure. You'll search 
perilous underground caverns for enchanted 
treasures. Bilingual: English/French. ($24.95 
CS-9004). Adventuretand and Pirate Adven- 
ture. Two fantastic adventures. You'll meet up 
with WILD ANIMALS, MAGICAL BEINGS, and 
the PIRATE himself. ($24.95 CS-9003). 

BASIC GAMES(S24 95 each) 1.51 action and 
strategy games Including Depth Charge, 
Hammurabi, and Football (CS-9001). 2. 51 
more fun and challenging games featuring 
Lunar Lander, Stock Market, and Super Star 
Trek (CS-9002). 3. 50 programs for games 
freaks Including Close Encounters, Grand 
Prix, and Life Expectancy (CS-9005) 4. Hours 
of Diversion: 38 gamea with Mastermind, and 
Yahtzee (CS-9006). Basic Games Disks require 
48K and Microsoft Basic. 
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A Codasyl-compatible database 
management system for microcom- 
puters has been announced by 
Microsoft. Micro-Seed runs under 
CP/M with Fortran-80 as the host 
language. 

It uses the Codasyl schema, sub- 
schema and area methods to divide 
and define the data base, providing 
easy access from the user programs. 
$900 

Microsoft, 10800 Northeast 8th, 
Suite 819, Bellevue, WA 98004. (206) 
455-8080. 
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Computer Chemistry for the 

Apple II is a series of 15 CAI high 
school chemistry programs in Basic. 
The Apple Grade Book program 
records any type of student grade 
along with the type of grade and/or 
the date on a separate file for each 
class. $19.50 each. J & S Software, 140 
Reid Ave., Port Washington, NY 
11050. 
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UTILITIES 

AND MISCELLANEOUS 

Cottage Software announces 
Packer, an editing tool for the TRS- 
80 Level II or Disk Basic, allows the 
user to save memory and time by 
packing a Basic program. It is written 
in machine language and is supplied 
on two tape cassettes in three ver- 
sions, one each for 16K, 32K and 48K. 
$29.95. Cottage Software, 614 N. 
Harding, Wichita, KS 67208. 
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The Verifier from Wolf & 
Associates is designed to eliminate 
TRS-80 cassette problems. It tells the 
user in real-time the correct volume 
level to use to load pre-recorded 
program tape and to playback recor- 
dings. It will also certify blank 
cassettes by writing a special data 
pattern and then reading it back to 
see if any bits have been dropped. 
$14.95. Wolf & Associates, P.O. 8073, 
La Crescente, CA 91214. 
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ABS Suppliers has introduced a 
utility, B- 17 1700 Baud Loader, for 
the TRS-80 Level II tape system 
which allows loading, saving and 
verifying Basic or system programs 
three times faster than normal. ABS 
Suppliers, P.O. Box 8297, Ann Arbor, 
MI48107. 
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The Keyword Indexing package 
is a series of programs that enables 
the TRS-80 user to create a disk file, 
build an index of all occurrences of 
keywords, and inquire into that file 
using any combination of keywords. 
The package requires two disks and 
32K of memory. $39.95. Northeast 
Microware, P.O. Box 6153, Syracuse, 
NY 13217. 
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Ecosoft has released an advanced 
statistical package called Microstat 
for serious scientific, research and 
business applications. Designed for 
use with the North Star Disk 
Operating System and Basic, the 
program uses a data management 
subsystem to control, edit and modify 
all files that are used as data input 
into the system. $10. Ecosoft, P. O. 
Box 68602, Indianapolis, IN 46260. 
(317) 253-6828., 
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Memdoc is a user interactive 
memory diagnostic for 8080, 8085 and 
Z80 systems. Written in assembly 
language on North Star diskette, it is 
intended to be used by both the 
technician who repairs memory 
systems, and by the general user who 
wishes to qualify memory periodical- 
ly. $34.95. Eagles Computer Works, 
P.O. Box 22664. Denver, CO 80222. 
(303) 756-4052. 
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Creative's own out- 
rageous Blonic Toad in 
dark blue on a light blue 
shirt for kids and adults. 



Computer Bum — black 
design by cartoonist 
Monte Wolverton on gray 
denim-look skirt with 
black neckband and 
cuffs. 



I'd rather be playing 
spacewars — black 

with white spaceships 
and lettering. 



Plotter display of PI to 
625 Places in dark brown 
on a tan shirt. 



Creative Computing — 
Albert Einstein in black on I 
a red denim-look shirt I 
with red neckband and j 
cuffs. 



T-shirts available in adult sizes S, M, L, XL; and In chil- 
dren's sizes (Blonic Toad and Spacewar) S, M, L. When 
ordering, specify design and size. Made in USA. $5.00 
postpaid in USA ; $6.00 postpaid, foreign. 



In a Hurry? Creative Computing T-Shirta 

Call your Visa or Master/Charge order in to: P.O. Box 789-M 

800-631-8112 (in nj. call 201-54CV0445) Morristown, NJ 07960 

creative computing 
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A new version of the Dataoope 
Single Disk Sort, a machine- 
language disk-file sorting program 
for Apple II and Apple II Plus, 
organizes a text file into any 
alphabetical or numerical order at 
high speed. $49.95. Datacope, P.O. 
Box 55053. Hillcrest Station, Little 
Rock, AR 72205. 
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IBM2CPM is an IBM to CP/M or 
CP/M to IBM transfer utility 
program which allows the user to 
transfer a source program or hex file 
to a micro via a standard 8" floppy 
disk. $95. Precision Computer 
Systems, Inc., 1737 North First St., 
San Jose, CA 95112. 
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Disco-Tech's DDT, a disk drive 
timing program for TRS-80 and Apple 
II computers allows the user to keep 
track of and adjust disk drive motor 
speed. It provides a real-time graphic 
display of the motor speed on the 
video screen. $19.95. Also available 
for the TRS-80 Level II and Disk Basic 
is Machine Language Utility 
Package No. 1 which is said to 
eliminate "keybounce," perform a 
formatted input routine, permit up- 
ward and downward scrolling, and 
provide insert and delete options. 
Disco-Tech, P.O. Box 11129, Santa 
Rosa, CA 95406. 
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Computer Headware has issued 
Release 2, an update of its Model A-l 
"Whatsit" brand self-indexing query 
system for the Apple. Responding to 
"pidgin English requests. Whatsit 
answers direct questions at conver- 
sational speed by cross-referencing 
data entries in disk storage. A Release 
1 disk may be exchanged for Release 2 
upon payment of a copying charge. 
Computer Headware, P.O. Box 14694, 
San Francisco, CA 94114. 
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Perry's Auto Apple for the Apple II 
or Apple II Plus programs boots and 
auto loads from tape or disk, when 
used with DOS. It displays the free 
sectors available and the option to 
catalog up to three drives at one time. 
$39. Perry's Computer Systems, 133 
Brenda St., Milton, FL 32570. (904) 
994-8251. 
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Apple Barrel Bushel #1 is a 

collection of 25 programs, including 
Mortgage Loan. Days Between Dates, 
Calendar. Checkbook, Metric Conver- 
sion, Addition, Apple LeMans, Plot, 
Menu Utility, Screen Print and Music 
Utility. $29.95. Computer Data 
Systems Corp., 550 North Main St., 
Logan, UT 84321. (801) 753-6990. 
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Dakin5 Programming Aids is a 
menu-driven utility package for use 
on the Apple II. It displays or prints 
all or selected records from a text file, 
copies a text file from one diskette to 
another, performs diskette-to-diskette 
copy with verification that output 
matches input, and includes a power- 
ful data entry subroutine. $39.95. 
Dakin5 Corporation, P.O. Box 21187 
Denver, CO 80221. 
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Desktop/Plan for the Apple II 
allows a business person to develop 
and operate customized business 
planning and analysis systems with 
no programming knowledge. It 
allows the user to decribe reports and 
calculation requirements in ter- 
minology familiar to most business 
people. $95. Desktop Computers, Inc., 
5276 Hollister Ave., Santa Barbara, 
CA 93111. 
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The Applesoft Tape Verifier from 
Softsell Associates, provides the Ap- 
ple II or Apple II Plus with the ability 
to verify programs saved to cassette. 
The program remains resident in the 
computer as long as power is applied 
and the computer is in the Applesoft 
mode. $20. Softsell Associates, 2022 
79th St., Brooklyn, NY 11214. 
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Cromemco • SWTPC • Lear-Siegler 

Hazeltine • RCA • North Star 
Verbatim • Parkin Elmer and others 

Fast, off the shelf delivery. 
Call TOLL FREE 800/523-5355 

MARKETLINE SYSTEMS, Inc. 

2337 Philmont Ave., Huntingdon Valley, Pa. 19006 

215/947-6670 • 800/523-5355 

Dealer Inquiries Invited 
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Z-80/TRS-80 T " Users 

BOOK YOU'VE WANTED NOW CAN BE YOURS 

THE Z-80: HOW IT WORKS 

(THE PROGRAMMERS PERSPECTIVE) 

By Monte Corum 

Best Most Complete Reference Yet 

cpu Operation Explained 

Addressing Modes Demystified 

Register Functions Described 

Instructions Defined 

Interrupts Diagrammed 

Cycles Outlined Formats Described 

Execution Described in Text, 

Notation and Diagrams 

Meaningful Analysis of 698 Commands 

in Formatted, Usable Tables 

Simple, Consistent Notation and Formats 

A Programmer's Book, Beginner or Experienced 

Ideal Text for Class Instruction 

Pricse: $17.95 Plus Tax and Shipping 

VISA & MSTRCHRG-NUMBER AND EXP. DATE 

PREPAID WE SHIP 

MICROWARE ASSOCIATES, INCORPORATED 

9301 N. 58th St. DPT. BBB 

SCOTTSDALE, AZ. 85253 

DEALER INQUIRIES INVITED 

~ TRS-80 IS A TRADEMARK OF TANDY CORP 
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MicroGnome's CAIware is a 
software system for authoring and 
using Computer Assisted Instruction 
on the 16K TRS-80 Level II. The 
system guides and prompts the 
author with a set of well-defined 
prototype questions. $24.95. Fireside 
Computing, Inc.. 5843 Montgomery 
Rd., Elkridge, MI) 21227. (301) 796- 
4165. 
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Text'Type is a utility program for 
the Apple that includes nine distinct 
character sets plus six combinations 
and allows the user to review all the 
characters sets and append them 
automatically to Applesoft programs. 
It requires a 48K Apple and a disk 
drive. Computer Solutions, Personal 
Information Products, 5135 
Fredericksburg Rd., San Antonio, TX 
78229. (512) 341-8851. 
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Sortmaster from Creative Com- 
puter Consultants contains listings of 
five Basic subroutines designed to 
sort numeric data in memory. The 
program also includes a self- 
contained introduction to basic sort- 
ing concepts. It is designed for us 
with TRS-80, PET and Apple. $8.95. 
Creative Computer Consultants, P.O. 
Box 2111, Norwalk, CT 06852. (203) 
847-0141. 
. CIRCLE 264 ON READER SERVICE CARD 



Miscellaneous 




H8 EXTENDER BOARD KIT 

The H8 Extender Board, available 
in a ready to assemble kit, allows 
HeathKit owners to troubleshoot 
their machines faster and more easi- 
ly, because each board is up above the 
computer for complete access to all 
circuits and components. Jumper 
links in power lines make power 



measurement simple. In addition, the 
links can be replaced with fine copper 
wire, which will protect the traces of 
the motherboard from damage due to 
excessive current during testing. 
$39.00. 

Mullen Computer Products, Inc., 
Box 6214, Hayward, CA 94545. (415) 
783-2866 
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MODULAR DESK UNITS 

Computer Plus offers a modular 
executive desk line. All units have a 
6()"x30" desk top, height 27", walnut 
formica with white accents, foot 
levelere, weight braces and modesty 
skirt. $190.00. 

Computer Plus+Inc. 15 Mare Lane, 
New Milford, CT. 06776. (203) 354- 
0167. 
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CP/M 2.0 




Expand the horizons of your TRS-80 
model II with the industry standard oper- 
ating system, CP/M version 2.0, and get 
these advantages over TRSDOS: 

• compatible with hundreds of existing 
software packages 

• wide choice of programming 
languages: BASIC, PASCAL, FORTRAN, 
COBOL, C, ASSEMBLER, and others 

• faster disk access 

• more storage per diskette 

• assembler, editor, file handler, and 
dynamic debugger included with 
the operating system 



Introductory price: $175 including manuals 
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For full details about how CP/M 2.0 can - 

improve the performance of your TRS-80 
model II. contact: 

PICKLES & TROUT 

PO BOX 1206. GOLETA.CA 93017. (805)967-9563 



CP/M is a trademark of Digital Research Inc TRS-80 is a trademark of Tandy Corp 
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ACCOUNTS PAYABLE 11300 

PRODUCE FINANCIAL REPORTS, MINT CHECKS, SPECIAL CONTROL 
LETTER. REPORTS BY VENOOR NUMBER, INVOICE NUMBER. AGED 
AND HISTORY FILE. AUTO SORTING OF VENDOR AND INVOICE 
FILES. PLUS CHECK AND PRE CHECK JOURNALS. 

ACCOUNTS RECEIVABLE #1S00 

PRODUCES FINANCIAL REPORTS. PRINTS STATEMENTS, PRODUCES 
REPORTS BT CUSTOMER ACCOUNT NUMBER. INVOICE BY CUSTOMER 
ACCOUNT NUMBER AND INVOICE BT INVOICE NUMBER. PRINT AGE0 
REPORT AND TRIAL BALANCE. KEEPS HISTORY FILE AND AUTO 
SORTING T FILES. 

GENERAL LEDGER #100 

PROGRAM UPDATES TO LEDGER FILES ANO ALSO GENERATES 
REPORTS ON PAYROLL. SALES. ACCOUNTS PAYABLE. CASH ANO 
EXPENSE STATISTICS. BALANCE SHEET ANO PROFIT I LOSS 
REPORTS. INFORMATION CAN BE GENERATED FOR YEAR END 
TAKES. 941 ANO M2 FORMS. 

INVENTORY I. #600 

INVENTORY FOR A SMALL COMPANY. PRODUCES ACTIVITY 
REPORTS FOR OAV. MONTH AND TEAR. MINIMUM QUANTITY 
SEARCH. INVENTORY LIST BY CLASS. BY VENOOR OR COMPLETE 
KITH TOTALS AND FINANCIAL REPORT. 

INVENTORY It, #700 
PRODUCE INVENTORY REPORTS BY DESCRIPTION OR VENOOR. 
PRINT ACTIVITY REPORTS FOR ONE DAY, ONE MONTH OR ONE 
YEAR. QUICK SEARCH BY PART NUMBER. PRODUCE TOTAL 
INVENTORY ANO FINANCIAL REPORT. (FOR ONE STORE) 

INVENTORY III. #900 
SAME AS INVENTORY II, #700. BUT PRODUCES REPORTS 
FOR EIGHT STORES. 

SHIPPING/RECEIVING 

PRODUCE YOUR BUSINESS FINANCIAL REPORT, PRODUCE REPORTS 
ON SALES, ACCOUNTS RECEIVABLE AMD LAST PURCHASE BT 
CUSTOMER. PRINT MAILING LABELS ANO PRINT CUSTOMERS 
BILLS. 

MAILING LABLES #100 

PRINT MAILING LABELS FROM YOUR COMPLETE FILE, FOR A 
PARTICULAR CITY OR STATE. USE ONE-PART MAILING LABELS. 

MAILING LABELS #400 

SAME AS #100, BUT ALSO PRINTS LABELS BY NAMES. USE 

MULTIPLE-PART LABELS. 

BASK 09 

UPGRADE AT BASIC 4-6809 AMP 68091 

RUNS 30* FASTER ANO CAN BE USED WITH EXISTING 
6800 PROGRAMS TO BE USED WITH 6809 SYSTEMS 
NO MANUAL 



*•• CUSTOMIZED PROGRAMS FOR YOUR BUSINESS REQUIREMENTS ••• 
CHARGE YOUR ORDER TO YOUR VISA 0* MASTER CHARGE 
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VIDEOTAPE COMBINED WITH 
CAI FOR APPLE 

Computer Assisted Instruction 
(CAI), on the Apple II and videotaped 
teaching can now be combined using 
the recently announced CAVTRI 
System. CAI can be inserted into any 
existing videotape. 

A segment of videotape on a topic is 
presented to a student. The computer 
is programmed to automatically 
pause the videotape player after the 
segment is finished and to switch 
control of the TV screen to the 
computer, which generates CAI text 
on the materials just presented. 

The package includes a com- 
puter/videotape interface, all 
necessary wires and connectors, an 
instructional manual, and a starter 
cassette containing a group of sub- 
routines that enable the teacher to 
write CAI programs for integration 
with videotape. $390 complete. 

CAVTRI Systems, 26 Trumbull St., 
New Haven, CT 06511. 
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ROBOT VAN FOR TRS-80 

An interfaced command unit that 
plugs into the output port of the TRS- 
80 operates the 3-G robot van by 
Radio Transmissions. 

The command module operates the 
van through radio controls. It uses a 
single port address and does not 
preclude use of the remaining output 
ports for other purposes. It is 
programmed through simple Basic 
statements to control forward, 
reverse, right, left, start, and stop. 
$85.00. 

3G Company, Inc., Rt. 3, Box 28a, 
Gaston, OR 97119. (503) 662-4492. 
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WRITE-ON! 

Low Cost WORD PROCESSING for APPLE 

Effortless to use. With simple commands you can 
format pages, individualize form letters, maintain 
updated manuals, and quickly prepare long docu- 
ments. Requires Apple II, Disk, Applesoft and 32K of 
memory. 



Enltr name & add 
ran for form letten 

during printing. 

Paragraph indent.' 
Skip lines — 




Center titles Repeat 
each page w/up to 
T_ 20 title* 



1 margins for right, 
left, top and bottom 



Page numbering 



i right margins 



Single sheet or con 
tinuous form. 



Chain tiles to print 
hundreds of pages 
inpne run. 



Low Price-only $99.50. Dealer discounts available. 
When ordering, add $2 shipping. Calif, residents add 
6% sales Tax. Visa & Mastercharge accepted. 

RAINBOW COMPUTING, INC. 

9719 Reseda Blvd., Dept. C2, Northridge, Ca. 91324 

Telephone (213) 349-5560 



SORCERER* SOFTWARE! 



All programs on cassette Only 8k of memory required. 

new' TANK TRAP by Don Ursem A rampaging tank tries to run you down You try to trap 
it by building concrete walls around it Four levels of play $11 95 

new 1 Inquire about our SMART TERMINAL program 

P10T by Vic Tolomei Now Apple owners will be envious of how easy you can get good 
graphics on your SORCERER PLOT includes both a super high resolution mode and a 
quick low resolution mode Both are accessible from your BASIC programs using simple 
commands Hi res & lo res examples included on tape $14.95 

SHAPE MAKER" by Don Ursem Construct special characters and tancy shapes with 
ease using this onscreen character editor Detailed 1? page instruction booklet 
includes example applications $14 95 

DEBUG by Bob Pierce Debug machine language programs by stepping through one 
instruction at a time Relocatable Several display options Multiple break points 
Modify memory and registers $14 95 

1 80 DISASSEMBLER by Vic Tolomei Decode machine language programs, including 
SORCERER'S monitor and ROM PAC's. with this /SO Disassembler written in BASIC 
Prints out machine code. Zilog mnemonics and ASCII $14 95 

FASTGAMM0N'" by Bob Christiansen A last backgammon opponent $19 95 

MAGIC MAZE" by Vic Tolomei A challenging ma/e game $11 95 



SOFTWARE INTERNALS MANUAL FOR THE SORCERER by Vic Tolomei A must 
for anyone writing software for the SORCERER Seven chapters Indexed 
Includes diagrams and software routines 64 pages $14 95 




QUTILtry SOFTW7IR6 

6660 Reseda Blvd Suite 103. Reseda. CA 91335 
Telephone 24 hours seven days a week (213) 344-6599 

WHERE TO GET IT: Ask your nearest Sorcerer dealer to see Quality Software s Sorcerer 
programs Or. il you prefer, you may order directly from us MasterCharge and Visa 
cardholders may telephone their orders and we will deduct $1 Irom orders over $19 to 
compensate for phone charges Or mail your order to fhe address above California 
residents add 6" sales tax Orders outside North America add $5 fol registered airmail 
pay in U S currency 
'The name SllRCIRIR has been tiademaiked by (nd« Inr 
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COMPUTER SPECIALISTS 



15% Discount 
on 

TRS-80's-l 
ANDACCESSORIES 



FAST 100 cpj Centronics 730 PRINTER MOO 00 
HIGHLY RELIABLE LOB0 DRIVES 1375.00 



MICRO KlflrHfiGEKIEWT SVSTEK1S 

DOWNTOWN PLAZA SHOPPING CENTER 

11SC SECOND AVE S.W 

CAIRO, GEORGIA 31778 

9133777120 
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for Radio Shack 
computers 

• SUPER DISC 

- 70 PROGRAMS $13.95 

• BUSINESS 

• FINANCE 

• MATH/STATISTICS 

• GAMES 

r 14 PAGE CATALOG 
Write to Elliot Kleiman 
National Software Marketing 
4701 McKinley Street 
Hollywood, Florida 33021 
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TRS-80 Model I and II quality software 
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COMPLETE YOUR 
TRS-80 SYSTEM 

Design Co. has put in kit form the C 
1 case for the TRS80 which is made of 
black ABS thermoformed side panels 
with the exposed wood sections 
covered by a silver, leather-like 
material. $69.50. 

The C-2 case is made of black ABS 
thermoformed side panels with wood 
sections covered by a silver, quilted. 
$135. 

Designco Consulting Eng., P.O. 
Box 307, Union, MI 49130. 
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COMPUTER BENEFIT 

A program, entitled Computer Con- 
cepts for Small Business, is aimed at 
the businessperson who knows little 
or nothing about computers and 
wants to determine for himself how a 
computer can reduce costs and in- 
crease efficiency. 

The program includes three audio 
cassettes and uses the audio-tutorial 
teaching technique to guide the 
reader through the text material, 
highlighting important points. $49.95 

Heath Co., Dept. 350-970, Benton 
Harbor, MI. 49022. 
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FILM ON COMPUTER 
TECHNOLOGY 

A film entitled "Computer Tech- 
nology: The Endless Revolution" is 
available from Sperry Univac World- 
wide Communications. 

The 25 minute color film details 
state-of-the-art information tech- 
nology and explores future applica- 
tions and implications of advanced 
computer research and development. 

Copies of the film are being loaned 
at no charge, or may be purchased 
for $80. 

John C. Baldwin, Audio/Visual 
Coordinator, Sperry Univac World- 
wide Communications, C2SE10, P.O. 
Box 500, Blue Bell, PA 19424. 
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GRAPHICS LAYOUT PAD 

The Grapple System for Apple II 
includes the LO-RES graphics and 
text layout pad that allows users to 

Sroduce screen layouts for program 
evelopment as well as providing tab 
guides for automatic text centering. 
The pad contains reminders of the 
most frequently used graphic com- 
mands for easy reference. 

The HI-RES graphics screen layout 
pad eases the task of determining 
correct coordinates for HI-RES 
screens, even when copying directly 
from a drawing or photograph. $3.00 
per 50 sheet pad. 

Computer Solutions, Personal In- 
formation Products, 5135 
Fredericksburg Rd., San Antonio, TX 
78229, (512) 341-8851. 
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SOLDERLESS 
PROTOTYPE BOARD 

CM-600 is a system for solderless 
construction of circuit prototypes. 
The CM-600 is a neoprene board 
4V 2 "x6" with 2280 holes on .100" 
centers. 

Standard components including 
DIP's are mounted by inserting leads 
into the holes in the neoprene 
material. Interconnections are made 
using 20 or 22 AWG (0,8 or 0,65mm) 
wire jumpers. Positive contact is 
assured by the elasticity of the hole, 
which compresses the leads together. 
$6.95. 

O.K. Machine and Tool Corp., 3455 
Conner St., Bronx, NY 10475. 
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CREATIVE COMPUTING 




CONVERTS MICROPROCESSOR 
TRAINER TO COMPUTER 

Heath Company has announced 
the introduction of a new Micro- 
processor Trainer Accessory that con- 
verts the Heathkit ET-3400 Micro- 
processor Trainer into a personal 
computer. 

It provides up to 4K of additional 
RAM, a new monitor in ROM, a tiny 
Basic interpreter in ROM, an audio 
cassette interface and a serial inter- 
face for a video terminal. 

Heath Company, Dept. 350-910, 
Benton Harbor, Michigan 49022. 
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COMPUTER CLOTHES 

Gem Business Systems Ltd. in- 
troduces its line of Computer 
Clothes. These are heavy gauge, 
Naugahide covers. Each cover is 
custom tailored to protect the 
computer or word processing ma- 
chine from dam"ge. Unlike plastic, 
Naugahide breathes and will not 
cause condensation. 

Gem Business Systems. Ltd., 60 E. 
42nd St., New York, NY 10017. 
(212) 682-9005. 
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DISK INDEX FORMS 

A package of forms is available to 
help TRS-80 disk users keep track of 
their programs. 

Form 1 , the index, allows the user to 
keep track of free space, available 
languages and utilities, and log 
trouble for diagnosing 
hardware /software problems. 

Form 2, the directory, keeps 
filespecs, passwords, and program 
size handy. Forms to index 25 disk- 
ettes are $3.00 plus 75C postage and 
handling. 

Stevens Computer Products, P.O. 
Box 942, Glendale, CA 91209 
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VIDEO MODULAR SYSTEMS 

Etra Technology Research 
Associates, Inc. announces the 
Video Modular Systems (VMS), a 
series of inexpensive video processing 
modules. The configured modules will 
internally generate a color display 
which facilitates the education of the 
user in RGB. color mixing by dis- 
playing all 16 levels of R.G. and B., as 
well as their combinations, in four 
sequential vertical volumns across a 
standard color monitor. This will 
produce 4096 colors. 

G.E.S.I., 1440 San Pablo Ave., 
Berkeley, CA 94702. (415) 527-7700. 
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ippy Disk Interface, assembled & tested. 
CP/M* Disk Operating System. 

• 1 Tarbell BASIC. 

• All Cables and Connectors. 

• Complete User Documentation. 

• Fully Factory Assembled and Tested. 

VDS-II Single Density $1888 

VDS-IID Double Density $1999 

CP/M is a I 
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CARSON CA 9074* 
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NOW YOU CAN 
TYPE LIKE A PRO! 

IMI's PRO-TYPE is a powerful 
word processor that is easy to 
learn and simple to use. Its 
comprehensive 72-page manual 
will guide you from beginner, 
to intermediate and on to ad- 
vanced applications. 
PRO-TYPE packs all of these convenient features into a single 
8K program that supports fully interactive text entry, editing, 
nd print formatting: 

Works with ANY Type of Terminal (Memory Mapped or 

not). 

Floating Tabs and Underlining. 

Change Left and Right Margin, Line Spacing While Printing. 
Double Text Buffers for Form Letters, etc. 
Multiple Print Modes (Justification, line fill, verify) 
Embedded "STOP" Codes allow Special Text Insertion 
Command Macros for Repeated Command Execution 
Easy-to-use Commands to Save and Load Text Files, List 

Directory, Print Multiple Files. 

TYPE LIKE A PRO . . . CHOOSE YOUR PRO-TYPE 
72 page PRO-TYPE Manual Only $25 

NORTH STAR 5" SD & DO DISK (with Manual) $75 

MECA ALPHA TAPE (with Manual) $75 

CPM 8" SO DISK (with Manual) $75 

Add $ .75 Special 4th Class or $1.50 Special Handling or UPS 

Interactive Microware DEALER 

P O Box 771 • State College. Pa INQUIRIES 
(814)238-6294 16801 INVITED 
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Miscellaneous 




SWITCHABLE ISOLATOR 

Electronic Specialists announces 
the Switchable Isolator, featuring 
input spike/surge suppression 
together with three individually 
switched and filtered sockets. 

Total Isolator load capability is 
1875 watts MAX, with each switched, 
filtered socket capable of handling a 1 
KW Load. Each switch has an 
associated pilot light. $119.95. 

Electronic Specialists, Inc., 171 S. 
Main St., Natick, MA01760. (617)655- 
1532. 
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AUTOMATIC LOGGING 
RECORDER 

Omnicron's automatic logging re- 
corder automatically documents 10 
hours of telephone conversations, 
two-way radio messages, computer 
data, or dictation on a standard 
cassette tape. Every recording is 
available for playback at the touch of 
a single button, either immediately 
after its receipt, or months later. 

Other features of the CTR-8LP 
recorder include: monitor while re- 
cording; end-of-tape alarm which 
beeps when the tape needs to be 
turned or replaced: digital tape foot- 
age counter; "LED ' record indicator; 
AC/rechargeable battery operation; 
and adjustable audio threshold with 
DC sensing to prevent activation 
between conversations. $257.50. 

Omnicron Electronics, 1 Mechanics 
St., P.O. Box 623, Putnam, CT 
06260. (203) 928-0377. 
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COMPUTERIZED NAME TAGS 

Fallout Productions present Numb 
Tags, adhesive paper stickers bearing 
the legend "Hi! My Name Is:" follow- 
ed by a representation of the Uniform 
Price Code. 

According to the manufacturer, 
"Numb Tags allow consumers to 
register their feelings about the in- 
creasing computerization of 
American society." 

Fallout Productions, P.O. Box 355, 
Fairfax, CA 94930. (415) 456-6306. 
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PET PRODUCTS 
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Programs — Workbooks 
tor Floppy Disk — for Cassette 
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PrtOM M 90 Mcr. tor program* using CMMIM atoraga tor data 
$12 96 each uatng aaguanttai floppy *« itorago tor data 
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TERMINALS 



FROM TRANSNET 



PURCHASE FULL OWNERSHIP AND LEASE PLANS 

PURCHASE PER MONTH 
DEICWPTIOII PRICE 12 MPS. 2* MPS. 3» MPS 

LA36 DECwriter II $1,695 $162 $ 90 $ 61 

LA34 DECwriter IV 1,295 124 69 47 

LA120 DECwriter III KSR . . . . 2,295 220 122 83 

VT100 CRT DECscope 1,895 182 101 68 

VT132 CRT DECttope 2.295 220 122 83 

DT80/1 DATAMEDIA CRT . . . . 1,895 182 101 68 

TI745 Portable Terminal ... . 1,595 153 85 57 

TT765 Bubble Memory Terminal 2,795 268 149 101 

TI810 R0 Printer 1,895 182 101 68 

TI820 KSR Printer 2,195 210 117 79 

TI825 KSR Printer 1,695 162 90 61 

ADM3A CRT Terminal 875 84 47 32 

QUME Letter Quality KSR .. . 3,195 306 170 115 

QUME Letter Quality R0 . . . . 2,795 268 149 101 

HAZELTINE 1410 CRT 875 84 47 32 

HAZELTINE 1500 CRT 1,195 115 64 43 

HAZELTINE 1 552 CRT 1 ,295 1 24 69 47 

Dataproducts 2230 Printer . . 7,900 757 421 284 

DATAMATE Mini Floppy 1,750 168 93 63 

FULL OWNERSHIP AFTER 12 OR 24 MONTHS 
10% PURCHASE OPTION AFTER 36 M ONTHS 

ACCESSORIES AND PERIPHERAL EQUIPMENT 

ACOUSTIC COUPLERS • MODEMS • THERMAL PAPER 
RIBBONS • INTERFACE MODULES • FLOPPY DISK UNITS 
PROMPT DEUVERY • EFFICIENT SERVICE 
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1945 ROUTE 22, UNION, N.J. 07083 

201-688-7800 
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"COMMAND CENTER" DESK 

Dynabyte announces the avail- 
ability of a new Command Center 
desk configuration designed to house 
the DB8/1 computer and DB8/4 dual 
8" floppy disk unit mounted on pull- 
out rolling rack for easy access. 

It also accommodates the DB8/2 
computer which is self-contained 
with dual 5'A" floppies and lower 
storage drawer. $500. 

Dynabyte, 115 Independence Dr., 
Menlo Park, CA 94025. (415)329-8021. 
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ROLL-TOP DESK FOR MICROS 

Personal Programming Service 
announces a teak wood roll-top desk 
designed specifically for the TRS-80 
and its peripherals. The keyboard and 
expansion interface are hidden 
beneath a false drawer when not in 
use, and removable disk cabinet will 
accommodate up to four drives. Small 
drawers are for diskettes /cassettes 
and large drawers are printer paper 
sized. 

Personal Programming Service, 
Inc., 14600 Goldenwest St., West- 
minster, CA 92683. (714) 894-3736. 
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INEXPENSIVE HARD-COPY 

GDS Graphic Display Systems Ltd. 
of Cambridge, England, has de- 
veloped what it claims to be the 
lowest priced hard-copy device on the 
market the GDS-1000S Hand-Held 
Polaroid Hard-Copy Camera Sys- 
tem. Using a Polaroid oscilloscope 
camera with a suitable hood and 
supplementary lens, sharp, high 
resolution black and white or colour 
hard copies can be obtained in only 
sixty seconds. 

GDS Ltd., 76 Hemingford Rd., 
Cambridge, CB1 3BZ. 
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TO ORDER CALL (212) 687-5000 

The COMPUTER FACTORY 
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KRELL SOFTWARE 

presents for the TRS-80 . . . 



Super Star Baseball 

Select team from among the best players of this de- 
cade. Strategy options include hit-and-run. stealing, 
intentional walk, etc 16K $12.95 

All Time Super Star Baseball 

Select from the best of all time, and use the same 
strategies as Super Star Baseball with these all time 
greats 16K $12 95 

Banzai! 

A dynamic combat version of Go. Exciting and easy to 
play and strategically complex 16K $9 95 

Bulls and Bears 

Make a fortune in stocks and bonds by using news 
bulletins featured in this investment game. 1 6K $8.95 

Star Clipper 

A sophisticated interplanetary trading game. Players 
navigate and trade as prices change and obstacles are 
met. 16K $9.95 

Epidemic 

Fight the spread of deadly diseases A challenging 
game for 1 or more players. 1 6K $9.95 

Hostage 

The ultimate in up to date action Negotiate and/or use 
military strategy in this contest between the authorities 
and the rebels. 16K $9.95 

All programs listed above copyright 01979 Marcia Fnedland 

Send check or money order to 

Krell Software 

21 Millbrook Drive, Stony Brook. NY. 1 1 790 
(516) 751 -51 39 J 
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TRS-80 



AFTER THE REST, TRY THE BEST 

INVADERS 



TRS-80 



SOUND* 

"Alien INVADERS from deep space are now approaching our planet in 
great swarms to colonize on Earth. The invaders feel they must destroy all 
life forms . . ." 
This MACHINE LANGUAGE Arcade Game will be the best in your library! 






p\oN ^we** 

ONLY $14.95 Cassette 

from 

LEVEL IV PRODUCTS, INC. 

Michigan (313) 525-6200 
Outside Michigan 1-800-521-3305 

10% DISCOUNT ON FIRST 200 ORDERS 

32238 Schoolcraft, Suite F4, Room C . Livonia, Ml 48154 

• SEND FOR THE LATEST FREE CATALOG • OVER 250 DIFFERENT ITEMS IN STOCK FOR THE TRS-80 * 
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CS-4002 

includes the Following: 




Baseball 
Torpedo Alley 
Darts 
Slalom 



BATTER UP 



Take the Held. Mix up your 
pitches to keep the batter off 
balance. If he hits it, move your 
fielders to snag the ball before he 
gets to first. Balls and strikes 
double plays, force outs and 
errors. It's the great American 
computer game. 

To order, send payment plus $1 .00 shipping or bankcard number to Creative 
Computing Software. P.O. Box 789-M, Morrlstown, NJ 07960. Or call toll- 
free 800/631-81 12 (In NJ 201 / 540-0445). 



creative 

computing 

software 



apple 
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All programs listed 
unless othe 

mrni-dtsk. 



SOFTWARE SPECIALS . . . 

below am written in basic for either system 
staled. The system must have at least one 



O TAX PREPARER (Screen/Printer Output) 
Prepares schedules 1040.A.B.CD.E.G.SE 
Program Disk and Documentation $69.95 

• REAL ESTATE PACKAGE 

Includes: Investment exchange. Buyer/Seller 
Net sheet. FHA(GPM) 245 cost and payment 
breakout and Loan Amortizations 

Program Disk and Documentation $180.00 

Monthly Updates for 6 Months $18.00 

O PASCAL UTILITY PACKAGE 

Disk file sort program Disk file record 
add. delete and insert program. Mint-report 
generator program Also contains an 
extended math and graphics library 

Program Disk and Documentation $29.95 

Monthly Updates For 6 Months $18.00 

© PROGRAM MARKETING SERVICE 

Microcomp will market your programs at no 
nsk to you Write today tor tree details 



Please specify which program and type system owned 
Enclose check or money order and mail to: 

Mfcrcxomp corp. 

P.O. BOX 2286 OCEANSIOE, CA 92054 

California residents add 6% sales tax 
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CREATIVE COMPUTING 



Before getting into a discussion 
of the contest, let me note an 
unfortunate ommission in our orig- 
inal contest description (Sep 1979, 
page 156). We neglected to mention 
that the idea for the contest came 
from Games magazine "Calculatrivia 
Marathon" in their Nov/Dec 1978 
issue. Their contest was so success- 
ful that they are running another one 
in their Nov/Dec 1979 issue. Will we 
run another one? At this point the 
several of us who acted as judges are 
decidedly bleary-eyed and I can't say 
whether the memory of this one will 
ever fade enough that we'll ever want 
to do it again. 

Due to two problems: 1) a 
particularly sticky question which no 
one got correct, and 2) an error in the 
statement of the rules, no one got 
the correct answer.lt was, incidenta- 
lly, supposed to be 9-3/8 or 75/8. 
Nevertheless, all 179 prizes have 
been awarded as well as 300 certi- 
ficates of merit to entrants who got 
at least 22 variables correct out of the 
list of 44. 

The sticky value was K, the 
number of cardinal points on a Viking 
compass. Jon Max found a reference 
which stated, "In this navigation 
neither compass nor chart was used. 
As late as the fifteenth century, it 
was believed in Southern Europe that 
these regular tools of Mediterranean 
seamen were unknown to those of 
the North." Steve Stearns could only 
find reference to "a lodestone device 
used by Scandinavian mariners to 
indicate north-south (2 points). Also, 
a wooden device having 32 notches 
has been found in a Viking settle- 
ment ruin. While not a compass, 
some scholars have suggested that it 
was used to determine direction." 
Man Frisbie also opted for an answer 
of 32 after two full weekends 
researching this question at the 
UCLA Reference Library and the Los 
Angeles Public Library. He conclu- 
ded that it was a truly rotten 
question." Perhaps so, but our 
reference source indicates 6 cardinal 
points on a Viking Compass. 

Another nasty variable was Q, the 
number of satellites of Jupiter ob- 
served through 1970. Most encyclop- 
lias list twelve although several 
'lesser" sources mention 13. Why? 
The extra moon had indeed shown up 
in photographic plates in 1970 and 
lad been proved to exist by computer 
orbital studies of the other satellites 
but the thitreenth was not "officially" 
acknowledged until September 1974. 
In the contest, we accepted either 
twelve or thirteen as correct. 



Computer 
Trivia Contest 

Results 
and Winners 



Both T and gamma asked for 
information about computer games. 
Of course, many versions of both 
Mugwump and Wumpus exist. We, 
quite naturally, were looking for the 
values in the original versions, both 
of which appeared in Creative Com- 
puting, and our books of computer 
games. 

Speaking of Creative Computing, 
we were astonished at the number of 
people who answered with a year 
other than 1974 for the first year of 
Creative Computing, (lambda). While 
1974 was not a full year of publica- 
tion, we started recruiting contribut- 
ing authors in April and our promo- 
tional literature was distributed start- 
ing in June. The first issue was 
published in October with a cover 
date Nov/Dec 1974. 

Variable L, "the Digital Equip- 
ment Corp. B171 Flip Chip has 

diode inputs," was 12. No 

question about that, however, we 
understand that several DEC offices 
would like to see me drawn and 
quartered with the remains thrown 
out for the buzzards. They got so 
many phone calls that Creative is 
very unpopular with them. Perhaps 
our recent purchase of a $76,000 PDP 
1 1 /34 for subscription fulfillment will 
temper this view somewhat. 

Pi was frequently missed. It 
stated, "3 is to 9 and 18 as 2 is to 8 

and ." The answer is 24— 3 2 = 9 

and 9x2 = 18. Following that logic, 2 3 
= 8 and 8x3 = 24. 

Several "historical questions" dat- 
ing back as few as three years proved 
troublesome to many contestants. R, 
the microprocessor used in the first 
Altair, was an 8080. We got answers 
of 8008 and 4004 (not even true 
microprocessors), 6800, 6502, 8800, 
and some really strange ones like 80, 
16, 12 and 2. In the same vein, 
contestants reported that a baud rate 
of the ASR-33 Teletype (X) was 10, 
75, 80, 150, 210, 300, 1000 and many 
other strange values. It is 1 10. 

In some instances, we were not 
completely clear on the units of 




measurement in which a value was to 
be expressed. The correct answers 
submitted by the majority of entrants 
indicated that this was not a serious 
flaw. 

The problem in making the form- 
ula "work" was in the rules which 
stated that the values were to be 
determined to the nearest integer. 
Value P, "to convert from microvolts 

to gigavolts, multiply by " was 

1x10~ 15 . Many contestants, rightly 
so, entered this value as 0. Zero has a 
truly nasty effect on evaluating the 
formula. It was my mistake and I 
assume full blame (for what it's 
worth) for letting this nastiness creep 
into the contest. 

The winner, with 42 of the 44 
values correct, was Alan Frisbie of 
Pasadena, CA. He will recieve the 
grand prize of a Craig M-100 Foreign 
Language Translator courtesy of 
Craig Corporation, 921 West Artesia 
Blvd., Compton, CA 90220. Second 
prize goes to P.J. Evans, also of 
Pasadena, CA. He will recieve Logix 
Industries' TEAMMATE Computer. 

The four people who missed five 
values will receive various electronic 
games. They are: Jay Legenhausen 
of Highland Park, N.J; Amy Kurtz- 
man of Nashua, N.H; Andrew Kloss- 
ner& Lauri Rathmann of St. Joseph, 
Ml; and Joanne Bioni of Oxon Hill, 
MD. 

The next group of thirteen people 
missed six values; all will receive an 
electronic or battery action game. 
Special mention should go to Hank 
Gupton of Seattle, WA in this group 
as the contestant who sent in the 
most entries (5) although, since they 
were submitted under the names of 
various family members, we're not 
sure who was the actual entrant. 

Down in the group of eight to 15 
incorrect values we begin to get Very 
Large clusters of entrants with the 
peak occuring at 11 incorrect. Booby 
prize goes to the four contestants 
with fewer than 15 correct responses. 
My eight year old son did better than 
that! -DHA 
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COMPUTER 
MANS THE BAR 

It won't listen to your troubles 
or warble Irish ditties. But the 
computer bar can dispense one ot 
1200 different drinks in less than 
three seconds, and It won't cheat 
the cash register. 

The computer bar can pour 
from one drop to sixty-four 
ounces. Liquids are drawn by a 
gravity-fed pump through separate 
lines, preventing any cross mixing, 
and lights warn when a bottle is 
running low. 

The turn of a key controls price 
changes for special entertainment 
and happy hours. The names of 



various cocktails, glass size, and 
all types of liquors are on the drink 
buttons on the electronic key- 
board. 

The computer bars are now in 
200 locations of major beverage 
operators. The cost of a pouring 
station with optional equipment 
starts at around $1 4,500. 





DONTYELL, I 
CAN HEAR YOU! 

The first connected speech 
understanding computer system in 
which an operator communicates 
directly with a computer through a 
microphone, has been developed 
by Or. Raj Reddy and Dr. Bruce 
Lowerre of Carnegie-Mellon Uni- 
versity. 




The system can recognize a 
thousand word vocabulary with 
high accuracy as well as 95% of 
the sentences spoken to it. 
Although questions must be 
within the constraints of specific 



A woman who lived by the Book 

and no indiscretion would brook, 

slapped with a smack 

an immense univac, 

so calculating was its look. 



tasks and phrased fairly precisely, 
this Is still a less rigid format than 
most other means of addressing 
the computer. Normally, Instruc- 
tions are issued to the computer 
through key words and symbols 
that are typed into a terminal. The 
smallest deviation, even a comma 
out of place, results In the machine 
being unable to process the 
Instruction. 

At present, the system can 
recognize the voice patterns of five 
operators. The machine requires 
up to four minutes to understand 
three seconds of speech, but Its 
developers think that reasonable 
engineering and research efforts 
will increase the speed to that used 
In human conversation. 

Dr. Reddy stresses that the 
system is not capable of engaging 
in Intelligent general conversation. 
"We don't even know if that Is 
possible," he says, "although 
some of the components needed 
for that kind of system are func- 
tional, and others appear to be 
feasible." 

Dr. Reddy and other research- 
era in the computer science 
department are also working on an 
Image Understanding Project. Per- 
fecting a machine that can analyze 
and recognize pictures is a very 
complex problem. Possible uses 
of such a satellite photographs, 
which now can be studied only by 
humans. 

Edmund Delaney 



Introducing 




Get Your 

First Issue FREE! 

COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the latest informa- 
tion on personal, small business and large-system com- 
puters, accessories and software. 

EACH MONTHLY ISSUE GIVES YOU: 

• Ads from individuals nationwide 

• Categorized ads so you can find them instantly 

• Large 11 by 14 easy-to-read format 

• Low classified ad rates - 10' a word 

• Nationwide circulation— 20,000 a month 

SPECIAL Charter Subscription OFFER Save $5.00 

Subscribe now for HALF-PRICE, $5.00 and receive 13 
issues/1 year (one free plus 12 regular issues). Money 
back guarantee. Bank cards accepted. 

BONUS: If you have something to advertise, send in an ad 
with your subscription and we 'It run it FREE! 

^f The Nationwide Marketplace lor Computer Equipment 

<gf COmPUTBR SHOPP5R 

f* P. O. BOX F7 • TITUSVILLE. FL 32780 • 305-269-3211 
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FREE Catalog 

New 4-way relief from problems with 
minicomputer supplies and accessories. 



1. One-stop shopping. 

I nmac ( formerly known as 
Minicomputer Accessories 
Corporation) has a catalog 
of over 1 000 products. Every 
thing Irom racks and line- 
printer paper to connectors 
and cables Each designed 
to help keep your minicom- 
puter or word processing 
system up and running 

2. Hassle-free ordering. 
I nmac lets you order by 

mail or phone So keep this free 

catalog close. It makes those once-tough tasks like 

ordering your magnetic media easy, fast and foolproof. 

3. Fast shipment of just the quantity you need. 
Inmac ships your order within 24 hours from centers in 

California. New Jersey and Texas In a bind? Call us for the 
many special services that can get your products to your 
installation even faster, with no minimum-order requirement. 

4. Field-proven quality means precision performance. 
Inmac guarantees every product in these 70 pages for 

at least 45 days And even some for up to ten years. 

Send tor your FREE 

mkTBmfWMS~tmT m Inmac catalog or call 

SZFJSJ^rfSzrBz: (408) 727-1970 today! 

2465 Augustine Drive. P.O. Box 47B0, Santa Clara. CA 95051 

• 1979 International Minicomputer Accessories Corporation 
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THE MAN 
WITHOUT A DESK 

WASHINGTON — Edward W. 
Scott, an assistant secretary of 
transportation, isn't your typical 
bureaucratic paper pusher. In fact, 
he Is pushing less and less paper 
all the time. 

Mr. Scott is pushing buttons 
Instead. He can push a button on 
the computer keyboard at his desk 
and his daily calendar will pop up 
on a television-type screen. He can 
look at the calendars of key sub- 
ordinates, too, find out when 
everybody is free, and set up a 
meeting. 

When Mr. Scott's computer is 
completely set up, sometime in 
1980, it also will serve as a power- 
ful electronic mailbox. He will be 
able to peruse timely staff memos 
on his desktop screen and fire off 
messages of his own from the 
attached computer keyboard. Driv- 
ing the system Is a minicomputer 
that will provide a combination 
card file, telephone log, doodle 
pad and filing cabinet, permitting 
Mr. Scott and most of his 900 
subordinates to retrieve everything 
from an old business letter to a 
blank expense-account voucher— 
and have it printed on paper, If 
absolutely necessary. 

What's more, the system will 
be portable. By toting a light- 
weight computer terminal around 
on trips, Mr. Scott can simply plug 
Into an ordinary telephone and dial 
the minicomputer back in Wash- 
ington. "People can work at home, 
In a hotel room or wherever," he 
says. 

Mr. Scott's "automated office" 
is an experiment but many experts 
In the communications field say It 
Is the wave of the future. The past 
15 years have seen the digital 
computer reshape the Jobs of 
stock-market traders, typists, in- 
surance-company clerks and 
newspaper reporters, among 
others. Now the computer Is 
beginning to make its mark in the 
offices of professionals and gen- 
eral managers who have never 
typed and never dreamed of doing 
hand-to-hand combat with such a 
machine. 

"We had an experiment at AT&T 
in Morristown (N.J.) Involving one 
executive vice president and four 
or five vice presidents," recalls 
James Burke, a marketing man- 
ager at the Illinois Bell Telephone 
Co. unit. The boss had a device 
nicknamed a "tickler" file built Into 
his electronic calendar. It re- 
minded him when underlings' re- 
ports were overdue, and It gave him 
a perfect memory. 

"The pressure was unbeliev- 
able," Mr. Burke says. "No follow- 
up was ever missed. Finally his 
people said, 'This Is driving us 
nuts.' " And the calendars were 
removed. 

Computers also create prob- 
lems of a simpler sort. Many 
executives and professionals can't 
operate computers because they 
can't type. And often, they don't 
want to learn to type, because 
typing smacks of lower-status 
clerical work. Still others are 



scared of the Inhuman, incompre- 
hensible machine. 

"I was terrified of that thing 
when I started," says Roberta 
Skelton, a vice president at Conti- 
nental Illinois National Bank & 
Trust Co., Chicago. That was five 
months ago, when Miss Skelton 
volunteered to work with an IBM 
computer terminal a few feet from 
her desk. She since has made 
peace with the machine and calls it 
"an enormous troubleshooting 
system." 

Recently, Miss Skelton needed 
to know If a corporate customer's 
$5 million check had been cashed 
and cleared the bank. Back in the 
old days, she would have called the 
bookkeeping department and or- 
dered a page-by-page search of 
daily ledgers. Under the new 
system, the bank's IBM computer 
stores 22 million recently cashed 
checks, and by pressing a few 
buttons Miss Skelton instantly 
learned that the $5 million check 
had been cashed the day before. 

Besides storing millions of 
checks, Continental Bank's central 
computer stores some 20 billion 
bits of electronic Information 
about loans, certificates of de- 
posit, checking and savings de- 
posits, trusts, credit histories, 
current money-market rates and 
the racquetball appointments of 
Louis Merles. 




Mr. Merles is vice president in 
charge of Continental's computer 
systems, and he may be the only 
vice president In American banking 
who doesn't have a desk. He 
usually sits on a couch with a 
computer keyboard In his lap, 
punching keys that flash an end- 
less series of reports and memos 
on a giant screen that occupies a 
corner of his wood-paneled office. 
A single drawer In a lamp table is 
his single concession to the 
paperbound world that flourishes 
around him. 

"I'm trying to be absolutely 
paperless," Mr. Mertes says, not- 
ing that Continental Bank person- 
nel turn out 500,000 pieces of 
paper a day. "I'm trying to push 
myself to the limit." In so doing, he 
hopes to discover where paper 
belongs and where It can be re- 
placed by electronics. 

All these computers contain 
sensitive Information, of course, 
and businesses are finding new 
ways to safeguard what is inside 
them. First National Bank of 
Chicago Is installing an experi- 
mental system, costing more than 
$100,000, that bars a person from 
the bank's computer room unless 
he has the right voice. The com- 
puter compares the voice charac- 
teristics of the admissible em- 
ployee with those of the person at 
the door. If they match, he's in. "It 
verifies that you are who you say 
you are," Mr. Sullivan says. 



WHO ME ?! 



Our surveys indicate that for every subscriber to 
Creative Computing, there are two pass-along 
readers who have to wait until Reader 1 is finished. 
Now we're all for sharing, but isn't it about time you 
pass-along people started a subscription of your 
own? 



Doesn't it bother you to 
watch your friends and co- 
workers wrinkling our beauti- 
ful full color covers? 





Don't you feel guilty about 
tearing out someone else's 
reader service card when you 
want to get more information 
on an ad quickly and easily? 




Aren't you worried every 
month that you'll find regular 
features like TRS-80 Strings, 
Apple Cart or PET transac- 
tions torn or pilfered? Or the 
Trivia Contest coupon clipped 
out? 




Ever wake up in the middle of 
the night longing to re-read 
that terrific article on Artifi- 
cial Intelligence or Computer 
Carpooling or Kids and Com- 
puters? 




Haven't you been frustrated 
because you wanted to play 
Adventure with your compu- 
ter but forgot that you didn't 
own the November issue with 
instructions and a complete 
listing? Or Eliza or Oregon 
Trail or Gold Mine or any of 89 
other games? 



Well if you want to take your computer to lunch, 
to bed, or to the train station, why not invest in your 
own subscription to Creative Computing? 12 issues, 
$15, 38 issues, $40. Foreign surface, add $9/year. 

Use the handy order form in the back of this issue. If 
someone's beat you to it, call in your Visa. 
MasterCharge or American Express number to 
800-631 81 12 (in N.J. 201/540-0445). 

Now your only problem will be keeping your 
Creative Computing to yourself I 

creative compufciRg 

P.O. Box 789-M Morristown, NJ 07960 
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Tall Ship 

This computer graphic by Paul 
Rietman was produced using a 
program, Shade-In written in COBOL 
for an NCR Century Computer. The 
image is constructed of approxi- 
mately 50,000 characters and takes 6 
minutes to run. 

(Paul Rietman, 9536 O'Day Drive, 
Highland, IN 46322). 
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Computers In Business: An Introduction, by Donald H. 
Sanders. McGraw-Hill Book Co., New York. 469 pages, 
hardcover $15.95. 1979. 

This textbook contains 17 chapters, grouped into five 
parts, on concepts and history, the information revolution, 
introduction to computers, input/output, the CPU, informa- 
tion systems, programming, languages, impact on planning 
and organization, impact on staffing and management 
control, social implications of business use, management of 
computing resources and computers and the future. 

Two snort appendices show how an IBM 29 keypunch 
works, and provide an EDP glossary. 

The text, by a TCU professor, is designed for use in an 
introductory one-semester course in computer data proces- 
sing offered at an early stage in a college program, according 
to the preface. Access to a computer is not required. 

The coverage is broad, the writing usually straightfor- 
ward (although containing some very long and meandering 
sentences), and relieved occasionally with humorous quotes 
and some of the better cartoons from Datamation and other 
magazines, including Creative Computing, "inserted to help 
maintain student interest and to reinforce important points 
that are presented." 

BASIC is described as "by far the most popular 
high-level language used in microcomputer systems. (A 
number of recreational and educational programs are 
published in each issue of such magazines as Creative 
Computing and Byte that cater to individual users of 
microcomputers, and these programs are usually document- 
ed in BASIC.)" 

The text could perhaps have been made a little less 
formidable-looking by breaking up the many large chunks of 
solid sans-serif type that make many of the pages without 
artwork look rather bleak. 



Electronic Games: Design, Programming, and Troubleshoot- 
ing, by Walter H. Buchsbaum and Robert Mauro. 
McGraw-Hill Book Co., New York. 335 pages, hardcover 
$17.50. 1979. 

"A comprehensive look at all aspects of electronic games 
from the point of view of the electronics professional," is how 
the press release describes this rather expensive book, and 
the description is most apt. 

The dozen chapters are on Electronic Game Fundamen- 
tals, TV Picture Parameters, Video Effects, Sound Effects 
For Electronic Games, Microprocessor Fundamentals, 
Programming, Programming Storage Techniques, Micro- 
processor Applications To Games, Electronic Game Param- 
eters, Design Examples, Typical Electronic Games and 
Troubleshooting Techniques. 

From the chapter titles alone it's obvious that the 
authors have taken a very broad look at the subject. The 338 
well-chosen illustrations are a great help. 

Even if you're not about to design an electronic game, 
you can learn a great deal about what makes them tick, 
including much more than just the basics of video and sound, 
8080 assembly-language programming, memory and video 
graphics. Two games are examined in detail: Pit and the 
Pendulum, and Blackjack, with flowcharts, schematics and 
programs. The chapter on typical games briefly examines a 
dozen, including Code Name: Sector, Chess Challenger, 
Missile Attack, fndy 500 and Fonz. 

Only the chapter on sound effects might be rather tough 
for the non-EE computernik, who's sure to find most of this 
book fascinating. 




Systems Extensions (For TRS-80 and Other Microcomputer 

Systems). The Bottom Shelf, Inc., Box 49104, Atlanta, GA 
30359. 129 pages, paperback $3.00. 1979. 

This is one of the more peculiar "books" in an industry 
that has seen a variety of peculiar books. It's an oddball 
because it's actually a catalog of TBS software and hardware 
filled out with a dozen of the most uninteresting articles 
you're liable to find outside one of those little mass-circula- 
tion paperbacks that are supposed to tell you all about 
personal computers. 

The three pages on 'Computers of the Past' are mostly 
nonsense, mentioning only LSI chips and MIS, and 
absolutely nothing about computers of the past. The next 
article, on 'Computers of the Present,' is almost entirely 
about the TRS-80. The Apple is mentioned briefly twice, and 
is said to be made by Commodor. 

And so on, words put on paper to fill space. Reading the 
text is a strain on the eyes, because of the great many spaces 
between words, due to the total lack of hyphenation. 

A couple of the pages are useful, such as part of 'Care of 
Your Computer,' a pro-and-con review of Electric Pencil 
(oddly, the only review in the book), an index to Radio 
Shack's Level-II manual (hard to read: too much space 
between items and page numbers), and several software 
routines. 

More than half the book, 66 pages out of 129, comprise 
the "TBS New Products Section," with full details on, and 
many large photos of, products such as Library 100, 
Checkbook II, Electric Pencil, NEWDOS+, cassettes, disks, 
printer paper, forms, binders, file cabinets, desks, chairs (16 
of them), magazines, and "the total TRS-80 line of products." 
which TBS also sells, from the 4K Level! machine to 
carrying cases. 

Most (all?) personal-computer companies give away their 
catalogs. TBS sells you their catalog in the form of a book, 
containing 59 pages of next-to-worthless filler material, 
despite the TBS ad that claims it "provides a theoretical 
computer background for the novice computer user." Not by 
a long shot. 

By the way, the accent is almost entirely on the TRS-80, 
despite the "other microcomputer systems ' in the subtitle. 
No other micros are mentioned (other than the Apple and 
"Commodor" PET, very briefly), the software routines are 
all for the TRS-80, and so is every single one of the software 
and hardware products in the catalog. 
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.COMPUTER SVSTE 



An Extraordinary Offer to introduce you to the benefits of Membership in 

ELECTRONICS BOOK CLUB 

invites you to take this 826-p. M ^^ J\ 
Computer Library for only A\m \m 



The compute compul 
design conslructton.pl 
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You Get 

BOTH of these 

HUGE Books 







Only 490 for BOTH 
HUGE volumes! 

Regular List 
Price $27.90 

Top-Quality 

Hardbinding 

Over 250 
illustrations 



How to Design. Build & Program Your 
Own Working Computer System 



Here's the complete computer build-it book, including design 
construction, programming, testing, and debugging 1 It's a 
2-tn-l volume that combines both hardwares software— that 
provides All the details you need to build your own computer 
and program it! It's a concise and very readable guide to 
homebrewing your own computer system complete from power 
supply to terminals Much data is also included to allow you to 
modify or add to an ousting computer system Here you'll find 
just the information you need to make intelligent design deci- 
sions, to incorporate the hardware you need, to test each compo- 
nent as you build, and to rig your creation tor expanded 
capabilities. This new manual explores the applications and 
interface possibilities of a wide variety of computer hardware 
and software, and examines them in terms of specifications, in 
terms of actual computer-building problems and solutions Not 
only does it fully illustrate the know-how that goes into building 
a computer with easy step- by- step methods, it also shows you as 
each segment is built how to program and test the operation of 
each of the self-built plug-in module boards This is perhaps 
close to the ultimate in owner-built computer construction 
techniques— you see how to assemble the hardware, how to test 
it in the operating system, and then how to program it You first 
learn how to select and customize a central processor, and from 
there you just keep on building, step by step, until you've 
concocted the computer system you're after Each Chapter gives 
you more goodies to pour in. each section will help you create 
greater design sophistication. 308 ops . 138 illus list (14 95 



Computer Programming Handbook 



A complete guide to computer programming and data proces- 
sing, with scores of worked-out examples It's an extremely 
comprehensive, informative, and interesting work on computer 
programming (and data processing in general), including 
number systems, languages, and application of languages to 
the kinds of real-world problems computers are programmed to 
solve This GIANT text (25 Chapters plus Appendices— 518 
pages) covers all three types of computer languages— machine, 
symbolic, and problem-oriented, each language type is covered 
in detail— complete with worked-out examples which include 
computer printouts and actual results Throughout, the author 
emphasizes the importance of techniques to get answers from a 
computer, rather than focusing on the complexities of the lan- 
guages themselves This approach simplifies the learning pro- 
cess and makes it easier to relate the problems involved in 
programming to the capabilites of the equipment The problem- 
oriented language portion focuses on FORTRAN IV. and all 
illustrative programs have been computer-tested where neces- 
sary to make sure they are operationally sound and workable and 
contain no errors If ever there was a one- book, first-class course 
on computer programming and data processing, this is it! 518 
pps, 114 illus List (1295 
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Let us send you this 2-voiume, 826-page Compu- 
ter Library as part of an unusual offer of a Trial 
Membership in Electronics Book Club. 

Here are quality hardbound volumes, each 
especially designed to help you increase your 
know-how and enjoyment of electronics and com- 
puters. Whatever your interest, you'll find Elec- 
tronics Book Club offers practical, quality books that 
you can put to immediate use and benefit. Among 
selections offered, for example, are Artificial Intel- 
ligence: The Complete Microcomputer Systems 
Handbook: The GIANT Book of Computer Projects: 
Illustrated Dictionary of Microcomputer Terminolo- 
gy: The A toZ Book of Computer Games: 57 Practical 
Programs A Games in BASIC. Microprocessor 
Cookbook, etc. 

This extraordinary offer is intended to prove to 



Facts About Club Membership 



• The 2 introductory books cany a publisher s retail price of 
(27 90 They are yours tor only 49C tor both (plus postage/ 
handling) with your Trial Membership 

• You will receive the Club Hews, describing the current Selec 
don. Alternates, and other books, every 4 weeks (I3x a year) 

• If you want the Selection, do nothing, it will be sent to you 
automatically If you do not wish to receive the Selection, or if you 
want to order one of the many Alternates offered, you simply give 
instructions on the reply lorm (and in the envelope) provided, 
and return it to us by the date specified This date allows you at 
least lOdays in which to return the lorm If. because ol late mail 
delivery, you do not have 10 days to make a decision and so 
receive an unwanted Selection, you may return it at Club ex- 
pense 

• To complete your Trial Membership you need buy only tour 
additional monthly Selections or Alternates during the next 12 
months You may cancel your Membership any time after you 
purchase these tour books 

• All books — including the Introductory Offer — are fully return- 
able after 10 days if you re not completely satisfied 

• All books are offered at low Member prices, plus a small 
postage and handling charge 

• Continuing Bonus II you continue after this Trial Membership, 
you will earn a Dividend Certificate for every book you purchase 
Three Certificates plus payment ot the nominal sum of (1 99 will 
entitle you to a valuable Book Dividend ol your choice which you 
may choose from a list provided Members 



• Contains over 
250.000 words 

• 826 data- 
packed pages 

you. through your own experience, that these very 
real advantages can be yours ... that it is possible to 
keep up with the literature published in your areas of 
interest, and to save substantially while so doing. As 
part of your Trial Membership, you need purchase 
as few as four books during the coming 12 months. 
You would probably buy at least this many anyway, 
without the substantial savings offered through Club 
Membership. 

To start your Membership on these attractive 
terms, simply fill out and mail the coupon today. You 
will receive the 2-volume Computer Library for 
10-day inspection. YOU NEED SEND NO 
MONEY. If you're not delighted, return the books 
within 10 days and your Trial Membership will be 
cancelled without cost or obligation. 
ELECTRONICS BOOK CLUB. Blue Ridge Summit. Pa 17214 

eTectr o7ncs"bm"ub 

Blue Ridge Summit, Pa. 17214 
Please open my Trial Membership in ELEC- 
TRONICS BOOK CLUB and send my 2-volume 
Computer Library, invoicing me for only 490 
plus shipping. If not delighted, I may return the 
books within 10 days and owe nothing, and 
have my Trial Membership cancelled. I agree 
to purchase at least four additional books 
during the next 12 months after which I may 
cancel my membership at any time. 
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creative computing 
book service 



Programming in BASIC 



BASIC and the Personal 
Computer 

Dwyer and Cnichtield This book will 
get you involved with personal com- 
puting, writing programs and ex- 
panding the use of your computer by 
showing the great diversity of ap- 
plications possible on any micro- 
computer. One of the most compre- 
hensive presentations of BASIC ever. 
As a text or addition to your personal 
library, this book will tell you all you 
ever wanted to know about BASIC 
350 pp. $12 95 (9F|. 
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A Guided Tour of 
Computer Programming 
In BASIC 

Dwyer and Kaufman This book tops 
all introductory texts on BASIC 
Filled with detail and examples, it 
includes sample programs for many 
simulations, several games, reserva- 
tions systems and payroll. Aimed at 
the novice, but of value to everyone 
156 pp $5.20 |8L] 



"You can 

ask me for 

anything you 

like, except 

time." 



A, 

■ 



BASIC Programming, 2nd 
Edition 

Kemeny & Kurtz. An introduction to 
computer programming through the 
language of BASIC. The authors 
include in-depth discussions of many 
applications including files and text 
processing. 150 pp. $10.95 ( 7 EJ 





Basic For Home 
Computers 

Albrecht, Finkel, & Brown. This book 
shows you how to read, write, and 
understand the BASIC programming 
language used in the new personal- 
size microcomputers. Includes 
detailed descriptions of everything 
you need to know to make your 
computer work for you— includes 
how to get started, numerous 
applications and games, lists of 
resources, much more. 332 pp $0.05 
[7G] 



To Order 

Use the bound-in order form or send 
your check for books plus $2.00 
shipping and handling per order 
(Foreign: $1 .25 per book) to Creative 
Computing. P.O. Box 789-M. 
Morristown. NJ 07960. NJ residents 
add 5% sales tax. Visa or 
MasterCharge are acceptable also. 
For faster service, call in your bank 
card order toll free to: 

800-631-8112 



(in NJ call 201 540-0445) 




Programming in 
Other Languages 

Programming in PASCAL 

Peter Grogono This book is an 
excellent introduction to one of the 
fastest growing programming 
languages today. The text is arrang- 
ed as a tutorial containing both 
examples and exercises to increase 
reader proficiency in PASCAL. Con- 
tains sections on procedures, files, 
and dynamic data structures such as 
trees and linked lists. 359 pp $10 95 
I10A| 




PASCAL User Manual and 
Report (2nd Edition) 

Jensen S Wirth. This book consists of 
two parts: the User Manual and the 
Revised Report The Manual is 
directed to those who have some 
familiarity with computer program- 
ming and who wish to get acquainted 
with the PASCAL language. The 
Report is a concise reference for both 
programmers and implementors. It 
defines Standard PASCAL, which 
constitutes a common base between 
various implementations of the 
language. $7.90 [10B] 



A Fortran Coloring Book 

Dr. Roger Kaufman. This book is one 
of the most entertaining computer 
programming books around. Learn 
computer programming the "painful- 
ly funny way." Filled with examples 
and illustrations plus a light sprink- 
ling of jokes. Guaranteed to teach 
you FORTRAN 273 pp $6.95 |4D) 

A Simplified Guide to 
Fortran Programming 

Daniel UcCracken. A thorough first 
text in Fortran Covers all basic 
statements and quickly gets into case 
studies ranging from simple (printing 
columns) to challenging (craps 
games simulation). 278 pp. $12.95 
(7F| 



Problem Analysis and 
Programming Style 



How to Solve Problems 

Wayne Wickelgren This helpful book 
analyzes and systematizes some of 
the basic methods of solving 
mathematical problems Illustrative 
examples include chess problems, 
logical puzzles, railroad switching 
problems and ones from science and 
engineering. For each, the author 
provides hints for the reader to tackle 
the problem and then a complete 
solution is given Want to solve a 
complex problem with a computer? 
Begin here 262 pp $7.50 [7Y| 

The Thinking Computer. 
Mind Inside Matter 

Bertram Raphael. Artificial in- 
telligence, or Al, is the branch of 
computer science concerned with 
making computers "smarter." With a 
minimum of technical jargon, this 
book discusses the capabilities of 
modern digital computers and how 
they are being used in contemporary 
Al research Discusses the progress 
of Al. the goals, and the variety of 
current approaches to making the 
computer more intelligent. $8.95 
|7X) 



The Little Book of BASIC 
Style: How To Write a 
Program You Can Read 

John M. Nevison. Learn how to write I 
better, easy-to-follow programs with 
Nevison's rules of style and turn out 
legible, correct programs Two hours 
of BASIC programming is all that is 
necessary to profit by this book Con- 
cepts of problem-solving and struc- 
lured programming are included. 160 
pp $5 95 |9V) 

The Art of Computer 
Programming 

Donald Knulh The purpose of this 
series is to provide a unified, read- 
able, and theoretically sound sum- 
mary of the present knowledge con- 
cerning computer programming 
techniques, along with their histori- 
cal development. For the sake of 
clarity, many carefully checked com- 
puter procedures are expressed both 
in formal and informal language A 
classic series Vol 1 Fundamental 
Algorithms. 634 pp $22 50 |7R] Vol 
2 Seminumerical Algorithms. 624 pp 
$22.50 (7S). Vol 3 Sorting and 
Searching 722 pp $22.50 |7T] 
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The Computer Book, by Fred Lee. Artech House, 610 
Washington St., Dedham. MA 02026. 380 pages, paperback 
$<£o. 1979. 

Here is one of those books that will leave few readers 
feeling neutral about it; they will hate it or like it very much. 
The $28 price alone will cause some to dislike it instantly, 
because most paperback books of this size and complexity 
sell for half that. 

What makes this book controversial, I think, is that it 
starts right off as a workbook and gets complicated very 
fast. For openers, "the top third of each page graphically 
represents memory and address registers to be filled in by 
you, the reader-as-programmer," according to the Artech 
news release. "At each location, the reader is instructed in 
what to do and where to go next. As a result, the reader 
actually goes through the same logical steps that a computer 
would foDow while running a program." 

Yep, right in the foreword, even before you get to page 1, 
the top of the page shows you a rectangle containing three 
lines of circles representing a computer's front panel, with 
12 circles for memory, 12 for address and three labelled F, I 
and E. Although you work with these from the very 
beginning, not until page 147 do you find out exactly what 
they all mean. Meanwhile, you've been snowed with a lot of 
mnemonics. The top of page one is full of them, without any 
explanation whatever. 

After discussing number systems, and binary adding and 
subtracting in conventional fashion, the text gets rather 
weird for a spell. Chapter 4, on Vacuum Cleaners (yes, 
vacuum cleaners) and Circuits, gets into logic circuits by 
first discussing them as pneumatic circuits, showing exactly 
how you might use a vacuum cleaner, rubber hose and 
rubber balls to construct a NAND, NOR and flip-flop. These 
are then translated into equivalent transistor circuits. 

The next chapter, on Big Building Blocks, gets into 
transfer gates, buses, counters, decoders and accumulator 
arithmetic. Subsequent chapters are on Memories, Peri- 
pherals, Planning the Computer, Organization of the 
Computer, Programming, Tnumbs-On Experience, Our 
First Program Steps, Assembly Language, High Level 
Languages, FORTRAN, COBOL, Microprogrammed Com- 
puters and Microprocessors. 

Until the chapter on FORTRAN, which begins on page 
239, the only language used is assembly language. The four 
programs in the chapters on programming are all in 
assembler. The chapter on high-level languages is five pages 
long. 

The text on each page is equal to about two-thirds as 
much as a standard text on computing; the left margins are 
2V> to 3 inches wide, and are seldom used, except for a few 
diarams and an occasional buzzword or two. Without the 
wide margins, and without the top four inches, which most 
readers may well ignore anyway, the book would be half as 
big as this 8Vi-by-ll-inch book, which weighs 2'A pounds as 
is. 

This book is perhaps best used in a classroom with an 
instructor at hand to explain such mysteries as the 
mnemonics at the top of page 1, the pneumatic logic and the 
intricacies of assembly language. The solitary reader may 
find it all too difficult to follow, unless he is very bright and 
very persistent. 

BASIC Guide, by Janet Frederick (editor), Heil Ferguson, 
Steve Hirst and Pete Trotter. CONDUIT. Box 388, Iowa 
City, IA 52244. 240 pages, paperback $10.00. 1979. 

This guide, according to the introduction, "does not 
define a standard BASIC dialect; rather, it tells how to use 
any existing dialect effectively, especially if you want to 
transfer programs between dialects. 

Which means it is similar to David A. Lien's "The BASIC 
Handbook," reviewed here in April 1979 (p 143). The Lien 
handbook examines over 250 BASIC statements, functions. 



operators and commands from over 50 of the most used 
dialects, and gives a test program you can run to see if your 
computer recognizes the word, a sample run that might be 
expected if your computer does respond, hints on 
programming techniques, variations in usage of the word 
and, when possible, alternate ways to do the same thing 
using other BASIC words. A very useful book to have when 
translating programs. 

The CONDUIT guide is similar. It first identifies a word 
as being either "part of almost every BASIC dialect," or in 
"some extensions not found in all dialects," or in "certain 
extensions that are both powerful and available in more than 
one dialect," and calls these three hierarchies Level 0. Level 
1 and Level 2. 

"Next, examples are given in a box at the top of the page, 
followed by a list of general forms. The examples are 
illustrations of the general forms. Finally, there are 
comments which may include notes on transferability 
alternate syntax, programming style and references." 

The words are grouped in chapters: Writing a BASIC 
Program (character set, statement line, program structure), 
Arithmetic Expressions, String Expressions, Assigning 
Values, Printing Output. Documentation (REM), Contro 
Statements, Loops, Program Segmentation. Files. Matrices 
and Graphics (RMOVE. RDRAW. etc.). 

Two short chapters on System Dependent Features and 
on Programming Style are followed by three useful 
a P£ e » n o J5? s - The first includes 23 pages of Summary Charts 
of BASIC Dialects Studied, 21 dialects altogether, including 
Level-II TRS-80. IBM 5100. DEC 10. Applesoft. PET, 

A^SES? 1 * , 4 ? 51, Polymorphic, Dartmouth. Xerox Sigma'. 
HP3000 and Univac. 

The second appendix is a mixture of items about 
Tolerance Testing of Numeric Expressions (with programs 
to ascertain machine precision), Character Graphics Ex- 
amples. Alternate Code for Nontransferable Intrinsic 
Functions, Alternate Code for Matrix Functions and several 
other areas of use to dialect translators. 

The third appendix provides: Common BASIC Features 
Not Allowed at Level 0, Common BASIC Features or 
Practices Not Recommended at Any Level (programs over 
800 lines long, TABbing backwards, etc.) and Level BASIC 
at a Glance. 

For people who prefer the academic approach, especially 
those who find some need for the dialect charts, this book 
may be useful. The computer hobbyist will prefer Dr. Lien's 
book, which is much easier to use. 

Compilation of State and Federal Privacy Laws: 1978-79, by 
Robert Ellis Smith. Privacy Journal, Box 8844, Washington, 
DC 20003. 170 pages, paperback $14.50. 1978. 

Published by "an independent monthly on privacy in a 
computer age," this is claimed to be "the nation's only single 
source of information about confidentiality statutes... Our 
hope is to provide a readable book that will give lobbyists, 
public interest groups, business persons, attorneys, citizens 
interested in privacy .protections that exist in the 50 states." 

The first 19 pages briefly describe federal law and the law 
in certain states regarding 15 areas such as arrest records, 
data banks in government, medical records, school records. 
Social Security numbers, tax records and wiretaps. For 
example, Connecticut limits wiretap orders to 34 in a 12- 
month period, and in Minnesota it's illegal to tell someone that 
a person took a polygraph test. 

The remainder of the book reprints representative 
statutes such as the Arkansas Information Practices Act, the 
Ohio Personal Information Control Act, the California School 
Records Law and the Federal Internal Revenue Code on 
Confidentiality. 

Although some of this is not easy reading, and will 
obviously not have a wide audience, the audience this book 
does have is undoubtedly increasing as 1984 approaches, and 
as a larger and larger group of Big Brothers have all too easy 
access to all but our private thoughts. 
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Robot Rabbit T-Shirt 

Roll down the block with this little black monster (on a 
bright orange T-shirt) on your chest and you can intimidate 
every carrot, radish or cuke In your way. Watch your enemies 
scurry for cover when they see this cute III' bionlc bunny 
aiming to nip their toes. Specify size : adult S,M ,L,XL. Only $5 
postpaid ($6 foreign) to : 

Creative Computing T-Shlrts, 
P.O. Box789-M, Morristown, NJ 07960. 




Oraffic *. 

Controlleri 



TRAFFIC 
CONTROLLER * * 

This fast-moving, real time pro- 
gram puts you in the chair of an air traffic 
controller. You control 27 prop planes and jets 
as they land, take off and fly over your air space 
You give orders to change altitude, turn, maintain a 
holding pattern, approach and land at two airports 
Written by an air traffic controller, this realistic machine 
language simulation includes navigational beacons and 
requires planes to take off and land into the wind With its 
continuously variable skill level, you won't easily tire of this 
absorbingand instructive simulation -iri*»i>-»I 

CS-3006 16KTRS-80 Level II $7 95 »«!«»<■ fclAWfl I 

CS-8001 16KSOL-20 $7 95 SOtXWBPC 

Send payment plus $1 .00 shipping 
to Creative Computing. P.O Box 
789-M. Morristown. N J. 07960. 



The 6800 Microprocessor: A Self-Study Course with Applica- 
tions, by Lance A. Leventhal. Hayden Book Co., Inc., 50 
Essex St., RocheUe Park, NJ 07662. 108 pages, paperback 
$5.95.1978. „ . 

Designed as "the basis of a self -study course in micro- 
processor applications for use with a minimal Motorola 6800 
computer," this laboratory manual was written by one of the 
top authorities in microprocessors, whose informative 
articles are always a pleasure to read. 

The exercises are aimed at electrical engineering and 
technology students. Although the preface says the author 
"assumed no particular knowledge of either programming or 
digital logic' page 3 starts right off with a ones-complement 
program consisting of LDAA $40, COMA, STAA $41. and 
SWI. The four instructions are explained, rather briefly, such 
as "LDAA $40 loads accumulator A with the contents of 
memory location 0040 (hexadecimal)." So the reader should 
have some knowledge of just what an accumulator is, and 
what "memory location" means. 

This is all lean meat, fine for those who understand 
computer jargon, but a few more paragraphs could have been 
added to help those who don't. Other laboratory exercises 
cover LED displays, using the keyboard for data entry, blow- 
charting, common errors, data arrays, debugging programs, 
subroutines, interrupts, etc. 




Personal Computing: Hardware and Software Basics, edited 
by Raymond P. Capece. McGraw-Hill Publications Co., New 
York. 265 pages, hardcover $14.95. 1979. 

Part of the Electronics Book Series, this guide consists of 
articles selected from publications such as Electronics, 
Datamation, IEEE Spectrum, Byte, Mini/Micro Systems 
and Interface Age. 

This is a much better and thorough introduction to 
personal computers than nearly all the little mass-market 
paperbacks that have been cobbled together in a hurry by 
people with little or no knowledge of computers. The 
advantage of this book is that the articles are written by 
some of the top authors in computing, such as Portia 
Isaacson, Carol Ogdin and Sol Libes. 

The six introductory articles are fine. The nine in the 
section on basic computer theory are broad enough to be 
quite useful to beginners. However, some of the eight 
articles on advanced microcomputer theory require some 
engineering knowledge to fully apprreciate. The book's 
jacket does say, though, "If you're an engineer or a designer, 
this volume shows you what's happening right now in the 
microcomputer field." The eight reviews of personal 
computers, including the TRS-80. PET and Apple H, are. 
once more, easily understood by the tyro. 

The 13 software articles include six written for 
engineers, and the eight in the last part, on "specifications 
and other useful information," are easily understood, and 
include a comparison of microprocessor specs, guide to 
abbreviations, glossaries for microprocessors and for 
digital-computer terms and graphic symbols (a filler, since 
most of them are for components you'll never see on a 
computer schematic). 

All in all, a very good selection of articles for the 
engineer or the technically-oriented beginner. Even if you're 
neither, there's still enough information here to make this 
book worth buying. 

1 88 CREATIVE COMPUTING 



Bugbook Vni: 8080/8085 Software Design With 190 
Software Solutions, by Christopher A. Titus. E&L 
Instruments, Inc., 61 First St., Derby, CT 06418. 320 pages, 
paperback $9. 1978. 

The seven chapters of this book show you how to write a 
variety of assembly-language programs. The chapters are: 
introduction, basic instructions, subroutines and the use of 
the basic instructions, advanced instructions, mathematical 
routines, number-base conversion and microcomputer 
input/output. 

The 190 programs are in such areas as subtracting two 
16-bit numbers, creating a 30-second time delay, saving 
register pair B in memory, adding two packed BCD numbers 
and suppressing the printing of leading zeroes. 

According to the preface, "the programs in this book will 
run on just about any 8080-based computer." 

One of the best features of this book is that the programs 
aren't presented "cold," but are developed, starting out with 
the application, discussing it and showing, often in great 
detail, how an assembly-language program is written to 
carry out the desired function. 

The assembly-language bit-hackers will find this book 
interesting and valuable. 



How to Make Money with your Microcomputer, by Carl 
Townsend and Merl Miller. Robotics Press, Box 92, Forest 
Grove. OR 97116. 164 pages, paperback $6.95. 1979. 

The authors don't make any wild promises that you can 
make big bucks with your micro, but their book does show 
you how to get a start, in a great many ways. 

The first chapter, on How To Write Articles, describes 
the variety of publications in the microcomputer field, lists 
each type of reader, describes the types of articles 
published, gives a 12-step process on how to write your 
article, tells how to submit your article and ends with advice 
on how to make money on book reviews. 

Subsequent chapters tell how to get your microcomputer 
book published, operate a service bureau, operate a 
computer-repair business, develop and sell your software, 
develop and sell your hardware, sell systems as a consultant, 
open your own computer store, hold a local or regional 
computer show, market your product or service, make 
money teaching others about computers, establish a 
business and manage your business. 

Several helpful appendices tell you about grants and 
proposals, provide samples of a software license agreement 
and: a service agreement, and give lists of computer 
magazines, books about how to write, book publishers, and 
books and articles about starting your own business. 

This is not one of those mass-market paperback quickes 
written for the gullible by itinerant cobblers, but is instead a 
very helpful, carefully written book, full of excellent ideas. 



How to Make Electronic Music, by Russell Drake, Ronald 
Herder and Anne Modugno. Crown Publishers, Inc., One 
Park Avenue, New York, NY. 108 pages, paperback. 1977. 

This book covers a series of ideas for creating electronic 
music, in tutorial style. The authors begin with simple 
experiments using an ordinary reel-to-reel tape deck, and 
build up to sophisticated techniques such as use of a 
synthesizer and mixed media. The emphasis is heavily on 
electronically modified sounds and music, by changing 
speed, playing sound backwards, sound-on-sound, and echo. 
Computer music is not mentioned, but some of the ideas 
described here might be useful for creating or modifying 
your own computer music. Electronic Music includes an 
abundance of photographs, activities, examples, and 
experiments to try. We recommend it to those interested in 
experimenting with electronic music at a beginning level. 

-SN □ 




A recording was made of the festival and Is now available 
on a 12" LP record. It features eight different computer music 
synthesizers programmed to play the music of J.S. Bach, J. 
Pacheibei, Rlmsky-korsakov, Scott Joplin, Nell Diamond, 
Lennon & McCartney and seven others. The music ranges from 
baroque to rock, traditional to rag and even Includes an 
historic 1963 computerized singing demonstration by Bell 
Labs. 

The record is available for $6.00 postpaid ($7.00 foreign) 
from Creative Computing, P.O. Box 789-M, Morristown, NJ 
07960. 
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Set of 8 co mputer Myths explained by Monte Wolverton. On 
heavy stock, large 12x17" size, suitable for framing, dressing 



up that drab line printer or file cabinet. Only $3.00 postpaid In 
USA, $400 foreign. A real megabargain! Send to Creative 
Computing, P.O. Box 789-M, Morristown. N.J. 07960. 
Residents of the Garden State add 5% tax. Orders mutt be 
prepaid. 
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Your Search 
has Ended... 

But the FUN 
has Just Begun! 




. . . get the most 
out of your 
computer 

(and save when you 
order now!) 




Computer Coin Games 



Computer Coin Games by Joe Wels- 
becker aids newcomers to the field of 
computers by simplifying the concepts of 
computer circuitry through games which 
can be played with a few pennies and full 
sized playing boards in the book. 
Enhanced by outrageous cartoons, 
teachers, students and self-learners of all 
ages will enjoy this 96 page softbound 
book. [10Rj$3.95. 




Basic Computer Games 



The two best selling books of computer 
games in the world, Basic Computer Games 
and More Basic Computer Games each contain 
complete program listings of each game in 
BASIC, a sample run and description. 

Basic Computer Games contains 101 
games including Blackjack, Mastermind, 
Super Star Trek, Civil War, Hurkle, Nim, Awari, 
Slots, Roulette, Lunar Lander, Hammurabi, 
Gunner, Bullfight, Stock Market and many 
more. 196 pp. Softbound. $7.50 [6c]. 

More Basic Computer Games has 84 new 
games including Close Encounters, Deep- 
space, Minotaur, Camel, Wumpus 1 and 2, 
Tennis, Roadrace, Rabbit Chase, Magic 
Square, Corral, Joust and many more. 196 pp. 
Softbound. $7.50[6C2j. 
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The Best of 
Creative Computing 

The first two years of Creative Com- 
puting magazine have been edited into 
two big blockbuster books. American 
Vocational Journal said of Volume 1, 
"This book is the 'Whole Earth Catalog' of 
computers." [6A] Volume 2 continues in 
the same tradition. "Non-technical in 
approach, its pages are filled with infor- 
mation, articles, games and activities. 
Fun layout." —American Libraries. [6B] 
Each volume $8.95. 



Computer Rage 

This fun and educational new board game 
is based on a large-scale multiprocessing 
computer system. The object is to move 
your three programs from input to output. 
Moves are determined by the roll of three 
binary dice representing bits in a computer. 
Hazards include priority interrupts, pro- 
gram bugs, decision symbols, power fail- 
ures and restricted input and output 
channels. Notes are included for adapting 
game for school instruction. A perfect in- 
troductory tool to binary math and the 
seemingly-complex computer. [6Z] $8.95 



Be A Computer 
Literate 

A first introduction to the computer 
world for children age 10 to 14. Full color 
diagrams, drawings, photos and large 
type make this book easy to read and 
understand. Written by Marion J. Ball 
and Sylvia Charp. This informative 62- 
page book is used in many school 
systems. Soft bound [6HJ $3.95. 





The 
Colossal 
Computer 
r» Cartoon 
Book 




Artist and 
Computer 



The best collection of computer cartoons 
ever! 15 chapters of several hundred car- 
toons about robots, computer dating, 
computers in the office, etc. Great gift item. 
128 pp softbound $4 95 [6G] 



This unique book by Ruth Leavitt 
covers the latest techniques in computer 
art, animation and sculpture. In its pages 
35 artists explain how they use compu- 
ters as a new means of self-expression. 
The San Francisco Review of Books said 
"Get yourself a copy of this book if you 
enjoy feeding your mind a diet of 
tantalizing high-impact information." O- 
ver 160 illustrations, some in full color. 
121 pages hardbound [6E] $10.00. Soft- 
bound [6D] $4.95. 




Binary Dice 

Now, the same dice used in Computer 
Rage can be purchased separately. Three 
binary dice (red, green and blue) in a zip- 
lock bag. $1.25 postpaid |3G] 
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75c 



75c 



SAVINGS COUPON 



Clip this coupon and apply it to your 
next purchase of Creative Computing 
Press books. When presented at your 
computer store, 75$ will be deducted 
from your purchase. 

You may also send your coupon along 
with order and payment (check, money 
order, MasterCharge, Visa, or American 
Express number) directly to Creative 
Computing, P.O. Box 789-M, Morris- 
town, N.J. 07960. Include $2 for shipping 
and handling. NJ residents add 5% sales 
tax. 



Only one coupon par purchase. Offer expires 
May 31 , 1980. Only original coupons valid. 

Retailer: Creative Computing Press will 
reimburse you for coupons received by 
applying the total toward credit on your next 
order. Send to: Creative Computing, Retail 
Dept., P. O Box 789-M. Morrlstown, NJ 07960 



75c 



75c 



For a FREE Sensational Software Catalog of over 400 programs for eight popular systems circle reader service #207. 
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Olndex To Advertisers 



' Direct Correspondence Requested. 



Reader 

Service Advertiser 

101 Aardvark Software 

102 Aardvark Technical Services 

103 AB Computers 

104 Acorn Software 

105 AddmasterCorp. 

106 AJ A Software 
ALF Products 

107 Allen GelderS, Co 

108 American Square Computers 

109 Apple Computer Co. 

110 Aries Computer Products 

1 1 1 ASAP Computer Products 

112 Atari 

113 Automated Simulations 

114 Basics & Beyond 

115 Bits 

116 The Bottom Shelf 

117 C&S Electronics 

118 CAP Electronics 

119 Cload Magazine 

120 Compumax 

121 CompuServe (Micro Net) 

122 Compusoft Publishing 

123 ComputerClty (CPU Shop) 

124 Computer Corner/ N J 

125 Computer Corner/ White Plains 

126 Computer Design Labs 

* Computer Factory 

* Computer Headwear 
204 Computer Shopper 

127 Computersmiths 

128 Computer Stop 

129 Computer Information Exch. 

130 Computerworld 

131 Computhink 

132 Computronics 

133 Connecticut Microcomputer! 58 

134 Cottage Software 

135 Cromemco 

136 DC Software 

137 Digital Press 

138 Eduware Services 



Page 
87 
115 
122 
89 
120 
115 
103 
120 
122 
9 
8 
165 
C2 
99 
115 
143 
5 
115 
125 
59 
69 
47 
63 
65 
124 
124 
125 
177 
166 
180 
121 
83,151 
164 
164 
67 
57 
159,161 
154 
1 
167 
73 
117 



Reader 

Service Advertiser 

Electronic Book Club 

140 Exidy Data Systems 

141 Galaxy 

142 Gooth Software 

143 Inmac 

144 Instant Software 

145 Integral Data Systems 

146 Interactive Mlcroware 

147 Ithaca Intersy stems 
206 Krell Software 

148 Level IV 

149 The Leyland Co. 

* Lifeboat Associates 

150 Lobo Drives Int'l 

1 51 Art Lourea 

152 Marketline Systems 

153 Mlcro-Ap 

154 Micro Architect 

155 Microcomp Corp. 

156 Micro Computer Tech., Inc. 

157 Micro Educational 

158 Micro Mall 

159 Micro Management 

160 Micro Music 

161 Mlcroware Associates 

162 Mountain Hardware 

163 National Software Marketing 
NRI Schools-Electronics 

1 65 North Star Computers 

166 Ohio Scientific 

167 Omni Communications 

168 Omni tronics 

169 Percom Data Co. 

1 70 Personal Software 

1 71 Personal Software 

172 Pickles & Trout 

173 Powersoft 

174 The Program Store 

175 Programma Int'l 

1 76 Quality Software 

177 Quest 

178 RCA 



Page 
185 
96-97 
168 
168 
180 
51 
7 
175 
166 
177 
162 
121 
13 
19 
127 
171 
33 
174 
178 
29 
122 
111 
174 
32 
171 
37 
174 
23 
10 
C4 
127 
172 
C3 
2 
141 
172 
151 
71 
49 
173 
35 
109 



Reader 

Service Advertiser 

Rainbow Computing 

180 Ramworks 

181 Realty Software 

182 Recreational Computing 

183 Reliance Plastics 

185 Simutek 

186 Small Business Applications 

187 Softape 

188 The Software Association 

189 The Software Exchange 
205 The Software Works 

190 Soroc Technology 

191 Southwestern Data Systems 

1 92 Stevens Computer Products 

193 Steven E.Shaw 

194 Sunshine Computer Co. 

195 Tano 

196 Tarbell Electronics 

198 3-GCo. 

199 Thoroughvest 

203 Total Information Services 

200 Trans-net 

201 Ucatan Computer Store 

202 R.J.Wilson 

Creative Computing 

207 Adventure 

207 Air Traffic Controller 

207 Apple II Software 

Computer Music Record 
Computer Myth Prints 

207 CP/M Software 
Book Service 
Press 

207 Software 

Subscriptions 
Educational Software 
Katie and the Computer 
Robot Rabbit T-shirt 
Sol-20 Software 
Space War /Super Invader 
Sports Games 
T-shirts 



207 



207 
207 
207 



Page 
173 

27 
154 

43 
161 

91 
163 

79 

111 

136-137 

123 

16 
111 
163 
123 
105 

15 
175 

83 
107 
176 
178 
127 
163 

93 

188 

101 

189 

189 

169 

186 

190-191 

118-119 

181 

144-145 

83 

188 

81 

113 

178 

170 




Puzzle Answer*. 



Somber Choice: He should light the match 
first. 

Sweet Problem: First, make two vertical 
cuts, at right angles to one another, across 
the center of the cake. Then, make one 
horizontal cut across the middle of the 
cake. 

The Sphinx: 

A) 6V„. 

B) Neither. They both burn shorter. 

C) A stopped clock. The stopped hands 
will show the correct time twice a day. 

D) A carpet. 

E) As far as the center, from that point on 
you will be going out. 

F) Because its capital is always Dublin. 

The Five Pairs Puzzle: Consider the cards 
as being numbered from left to right, 1 
through 10. The moves would then be: 
Card 4 on card 1: card 6 on 9: card 8 on 3; 
card 2 on 7; and card 5 on 10. 

A Tricky Test: 15 and 16 go into box 3, and 
17 goes into box 2. The numbers in box 1 
are all made using curved lines. The num- 
bers in box 2 are made using only straight 
lines. The numbers in box 3 are made using 
both straight and curved lines. 



English Anagrams: 

(a) William Shakespeare. 

(b) Oliver Goldsmith. 

(c) William Hogarth. 

(d) Joshua Reynolds. 

(e) Wordsworth. 

The Rhino's Riddle: 

8888 and 8888-888 



8.888 




THE LAST BUG 

'But you're out of your mind,' 
They said with a shrug. 
'The customer's happy — 
What's one little bug' 



But he was determined. 
The others went home. 
He spread out the program. 
Deserted, alone. 

The cleaning men came. The 
Whole room was cluttered 
With memory dumps, punch cards, 
'I'm close,' he muttered. 

The mumbling got louder, 
'Simple deductions, 
I've got it, it's right, just 
Change one instruction' 

It still wasn't perfect 

As year followed year 

And strangers would comment, 

'Is that guy still here' 

He died at the console 

Of hunger and thirst. 

Next day he was buried 

Face down, nine edge first. 

And the last bug in sight. 
An ant passing by, 
Saluted his tombstone 
And whispered, 'Nice try!' 

Author Unknown 

(Submitted by |. Prusis, 
Dearborn, Michigan) 
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CREATIVE COMPUTING 
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From PEflGOM 



One-Drive System: 

$399. (40-track) & $675. (77-track) 
Two-Drive System: 

$795. (40-track drives) & $1350. (77-track drives) 
Three-Drive System: 

$1195. (40-track drives) & $2025. (77-track drives) 
Requires Expansion Interface. Level II BASIC & 16K RAM 







Low Cost Add-On Storage for Your TRS-80*. 

In the Size You Want. 

When you're ready for add-on disk storage, we're ready for you. 
Ready with six mini-disk storage systems — 102K bytes to 591 K bytes of 

additional on-line storage for your TRS-80*. 



• Choose either 40-track TFD-100™ Drives 
or 77-track TFD-200™ drives. 

• One-, two- and three-drive systems im- 
mediately available. 

• Systems include Percom PATCH PAK 
#1™, on disk, at no extra charge. PATCH 
PAK # 1" de-glitches and upgrades 
TRSDOS* for 40- and 77-track operation. 

• TFD-100™ drives accommodate "flippy 
disks." Store 205K bytes per mini-disk. 

• Low prices. A single-drive TFD 100 "•' 
costs just $399. Price includes PATCH 
PAK #1™ disk. 

• Enclosures are finished in system- 
compatible "Tandy-silver" enamel. 



Whether you 



need a single, 40- 
track TFD-100™ add-on or a three-drive 
add-on with 77-track TFD-200™s, you 
get more data storage for less money 
from Percom. 

Our TFD-100™ drive, for example, 
lets you store 102.4K bytes of data on 
one side of a disk — compared to 80K 
bytes on a TRS-80* mini-disk drive — 
and 102.4K bytes on the other side, too. 
Something you can't do with a TRS-80* 
drive. That's almost 205K bytes per 
mini-disk. 

And the TFD-200™ drives provide 
197K bytes of on-line storage per drive 



— 1 97K, 394K and 591 K bytes for one-, 
two and three-drive systems. 

PATCH PAK #1™, our upgrade 
program for your TRSDOS*, not only 
extends TRSDOS* to accommodate 40- 
and 77-track drives, it enhances 
TRSDOS* in other ways as well. PATCH 
PAK #1™ is supplied with each drive 
system at no additional charge. 

The reason you get more for less 
from Percom is simple. Peripherals are 
not a sideline at Percom. Selling disk 
systems and other peripherals is our 
main business — the reason you get 
more engineering, more reliability and 
more back up support for less money. 



In the Product Development Queue . . . a printer interface lor using your TRS-B0* with any 
serial printer, and . . . theElectric Crayon"-' to map your computer memory onto your color TV 
screen — for games, animated shows, business displays, graphs, etc. Coming PD0I 



™ TFD 100 TFD-200. PATCH PAK and Electric Crayon are trademarks of PERCOM DATA COMPANY 

•IRS 80 and TRSDOS an trademarks ol Tandy Corporation and Radio Snack which rove no relationship to PERCOM DATA COMPANY 



PErKJCM 



PERCOM DATA COMPANY. INC. 
211 N. KIRBY • GARLAND. TX • 75042 



To order add-on mini-disk storage for your TRS-80' , 
or request additional literature, call Percom s toll-free 
number 1-800-527-1592. For detailed Technical Infor- 
mation call (214) 272-3421. 

Orders may be paid by check or money order, or 
charged to Visa or Master Charge credit accounts. Texas 
residents must add 5% sales tax. 

Percom 'peripherals for personal computing' 



CIRCLE 109 ON READER SERVICE CARD 



Step up to your 
next computer. 
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STEPUPT0AC4P 
FROM OHIO SCIENTIFIC 

You know about computers In fact, 
you probably own one now One that 
you might be thinking of expanding We 
have a better idea Take a giant step 
into the personal computing future with 
an amazing, new C4P from Ohio 
Scientific. 

SPEED SEPARATES THE 
COMPUTERS FROM THE TOYS 

The C4P MF has execution speed that 
is twice as fast as Apple II or 
Commodore PET and over THREE 
times as fast as TRS-80. They are 
many times faster than the recently 
introduced flock of video game type 
computers. And. as it that weren't fast 
enough, the C4P nearly doubles its 
speed when equipped with the GT 
option 

Just look at the back 
panel of the C4PMF. 

All the I/O you'll ever need! 



SOUND 

ilor 

1 — 8 bit companding digital to analog 
converter for music and voice 
output 

HUMAN INPUT EXPANSION 

2 — 8 axis |oystick interfaces 
2 — 10 key pad interfaces 

HOME INTERFACE 

1 — AC-12 AC remote control interface 

DISPLAY 

32 x 64 with upper and lower case 
2048 Characters. 
256 x 512 effective Graphic Points 
16 Colors 

SOFTWARE 

Ohio Scientific offers a comprehensive 
library of both systems and 
applications software for the C4P. 



The C4P is an outstanding premium 
computer — years ahead of the 
market. We know because there's 
nothing quite like it for the price, 
anywhere. And probably won't be for a 
very long time 



C4P $ 698 

8K BASICin-ROM, 8K of static RAM 
and audio cassette interface. Can be 
directly expanded to 32K static RAM 
and two mini-floppy disks 

C4PMFM695 

All the features of the C4P plus real 
time clock, home security system 
interface, modem interface, printer 
interface, 16 parallel lines and an 
accessory BUS. The C4P MF starts 
with 24K RAM and a single minifloppy 
and can be directly expanded to 48K 
and two mini-floppies. Over 45 diskette 
now available including games, 
personal, business, edufcattonal and 
home control applications programs as | 
well as fa real time operating system, 
word processor and a data ba 
management system 

Computer* com* wilh keyboards and lloppiM wh«« ■ 
Other •quipmanl iftown || optional 

For literature and the name of your local 
dealer, CALL 1 BOO 321 6850 TOLL FREE. 
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1333 SOUTH CHILLICOTHE ROfcO 
AURORA. OH 44202 • [2 1 6) 562-3 1 1 



CIRCLE 166 ON READER SERVICE CARD 



